Programm hängt sich beim Start auf

[TForm1]

Zitat von himitsu:

Ohne das Seek (in der Schleife) wäre es nicht hängen geblieben.

Naja, bis heute wusste ich auch noch nicht, dass read() von alleine weitergeht, schließlich steht es, glaube ich, auch im Delphi- Treff- Tutorial so.

Mit dem Exception- Handling sollte ich mich mal auseinandersetzen, das stimmt. Bislang war das mehr fürs gute Gewissen eine Behelfsvariante, aber heute habe ich schon gemerkt, dass es durchaus sinnvoll sein kann zumal das Projekt ja nicht kleiner wird und das evt. die Fehlersuche vereinfacht.

Zitat von himitsu:

Delphi-Quellcode:

function Text: string;
begin
  Result := Result + 'a';
end;

var
  i: Integer;
  S: string;
begin
  for i := 1 to 5 do
    S := S + Test;
  ShowMessage(S);
end;

Was gibt hier die MessageBox aus und was würdest eigentlich du für einen Text erwarten?

Bezieht sich die Frage auf den Quelltext darüber oder worauf?