Moin Andy,
das könnte z.B. so aussehen:
Delphi-Quellcode:
var
iStartPos : integer;
//...
iStartPos := Pos(#32, flStrList[Zahl]);
while flStrList[Zahl][iStartPos] = #32 do inc(iStartPos);
Unter der Annahme, dass auf das erste Blank im String garantiert ein Zeichen ungleich Blank folgt geht es so ohne Sicherheitsabfrage.
Ich bin davon ausgegangen, dass flStrList in irgendeiner Form ein Array mit Strings ist, z.B. TStringList.