Ich weis nicht, ob diese Ersetzen-Routine wirklich funzt.
Edit:
Denn wenn da mehrere Spaces hintereinander stehen, wird er jedes zweite übergehen, da alles nach dem Löschen um eins nach vorn rutscht, Dein Index aber auch um eins weiter geht. Das macht dann einen Suchschritt von zwei Zeichen.
Delphi-Quellcode:
function bla(s:
string);
i:integer; c:char;
begin
// s ist die aus der Datei eingelesene Zeile
s:=copy(s,1,16);
// Eine Möglichkeit (benötigt Unit StrUtils):
s:=AnsiReplaceStr(s,'
','
');
// Zweite Möglichkeit:
i:=pos('
',s);
while i>0
do begin
delete(s,i,1);
i:=pos('
',s)
end;
// Bzw auch für Ziffern:
i:=1;
while i<=length(s)
do
if s[i]
in ['
','
0'..'
9']
then delete(s,i,1)
else inc(i);
bla:=s
end;