hab mir deinen source jetzt nich durchgelesen... wollte nur nochmal ne möglichkeit
anmerken wie man recht kompfortabel den string aus deinem eingangspost zersplitten kann.
wenns nich unbedingt ein super schneller, extra angepasster algo sein muß, kann man auch
ne TStringList dafür nehmen. is auf jeden fall sehr übersichtlich im source:
Delphi-Quellcode:
var
List: TStringList;
i, Zahl: Integer;
begin
List := TStringList.Create;
try
List.Delimiter := ' ';
List.DelimitedText := Edit1.Text;
for i:=0 to List.Count-1 do
begin
Zahl := StrToInt(List[i]);
showmessage(IntToStr(Zahl));
end;
finally
List.free;
end;
end;