Warum stürzt es immer ab?

[reyka]

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? =(

[SirThornberry]

was heißt abstürzen? Welche Fehlermeldung bekommst du?
Verstehst du den Quelltext eigentlich selbst?

Unter welchen Umständen meinst du das folgende Anweisung eintritt?
until s[i]=''; Ich glaube wenn du den Quelltext entsprechend des offiziellen Styleguides einrückst findest du eher den Fehler.

[mkinzler]

Strings beginnen bei 1
for i:=1 to l do

[reyka]

Zitat:

was heißt abstürzen? Welche Fehlermeldung bekommst du?

es stürzt ohne Fehlermeldung ab

Zitat von mkinzler:

Strings beginnen bei 1
for i:=1 to l do

Ok damit stürzt es nich ab sobald etwas drin steht, aber sobald mehr als 1 Zeichen im String vorhanden sind stürzt es wieder ab.

Zitat:

Unter welchen Umständen meinst du das folgende Anweisung eintritt?
until s[i]='';

Sobald ein Leerzeichen "erkannt" wird

[mkinzler]

until s[i]='' or i = l; Oder die Position des Leerzeichens vorher ermitteln und die Grenze der Schleife entsprechend setzen

[Forlan]

Zitat von reyka:

Zitat:

was heißt abstürzen? Welche Fehlermeldung bekommst du?

es stürzt ohne Fehlermeldung ab

Zitat von mkinzler:

Strings beginnen bei 1
for i:=1 to l do

Ok damit stürzt es nich ab sobald etwas drin steht, aber sobald mehr als 1 Zeichen im String vorhanden sind stürzt es wieder ab.

Zitat:

Unter welchen Umständen meinst du das folgende Anweisung eintritt?
until s[i]='';

Sobald ein Leerzeichen "erkannt" wird

wäre ein Leerzeichen nicht dies hier?:
 until s[i]=' '; und nicht s[i]=''

[reyka]

[quote="Forlan"]

Zitat von reyka:

Zitat:

was heißt abstürzen? Welche Fehlermeldung bekommst du?

wäre ein Leerzeichen nicht dies hier?:
 until s[i]=' '; und nicht s[i]=''

macht kein Unterschied stürzt es auch ab wenn ich nu '12' eingebe sobald mehr als 1 zeichen vorhanden ist -> Absturz

[mkinzler]

Klar, das es über die grenze geht, deshalb auch Abbruch bei Stringende

[reyka]

Zitat von mkinzler:

Klar, das es über die grenze geht, deshalb auch Abbruch bei Stringende

was meinste damit?

[lbccaleb]

Was ist denn "z"??