Ich will mit folgendem Code meinen String nach Zahlen durchsuchen, jedoch stürzt das Progamm ab sobald man den Button clickt (Edit1.text muss Inhalt haben.)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
l,j,i,x : integer;
s: string;
begin
j:=1;
s:=edit1.text;
l:= length(s);
for i:=0 to l - 1 do
begin
repeat
if s[i] in ['0'..'9'] then
z[j]:=z[j]+s[i];
until
s[i]='';
j:=j+1;
end;
end;
end.
was mach ich da falsch? =(