Mahlzeit zusammen!
Ich möchte für mein nächstes Großprojekt (relativ gesehen - ich bin neu in Pascal) einzelne Wörter aus einem String extrahieren. Im Moment sieht der Code so aus:
Delphi-Quellcode:
Function WordFromString(Str:String;WordPos:Integer):String;
Var Character,FinalWord:String;i,j:Integer;
Begin
j:=0;
i:=0;
repeat begin
Finalword:='';
repeat
begin
Character:=Str[1+i];
i:=i+1;
Finalword:=Finalword+Character
end
until
(Character='') or (Character=' ');
j:=j+1;
end until
j=WordPos;
result:=Finalword
End;
Die Funktion soll dann mit WordFromString('eins zwei drei vier',3) das dritte Wort auslesen und als result festlegen. Soweit funktioniert es auch. Aber:
Sobald ich das letzte Wort auslesen lassen möchte, schmiert mir der Debugger ab :[
Es wäre genial, wenn mir da jemand helfen könnte oder einen nützlichen Tipp parat hat
LG