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.
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?