välilyönti/tab-merkit

t:=t mid(s, i, 1)

IlmaTabia : =t;

Tarkoitit siis tälläistä:

function IlmanTabia(s : String) : String;
var
t : String;
i : integer;
begin
t := '';
for i := 1 to length(s) do
if AnsiMidStr(s, i, 1) <> #9 then t := t AnsiMidStr( s, i, 1 );
result := t;
end;

// AnsiMidStr löytyy StrUtils käännösyksiköstä
http://www.freepascal.org/docs-html/rtl/strutils/ansimidstr.html

AnsiMidStr on hidas, onko tuo jotain Visual Basic -tyyliä.

Function deltab(s: string) : string;
var c: char;
Begin
result := '';
for c in s do if c <> #9 then result := result c;
End;

tai

Function deltab2(s: string) : string;
var i: integer;
Begin
result := '';
for i to length(s) do if s[i] <> #9 then result := result s[i];
End;

tahi

Function deltab3(s: string) : string;
var i: integer;
Begin
repeat
i:= pos(#9, s);
if i= 0 then break;
delete(s, i, 1);
until false;
result := s;
End;