Zitat von
Luckie:
Delphi-Quellcode:
function GetId(const f: string; const i: integer): string;
var temp: String; sl: TStrings;
begin
temp := '';
sl := TStringList.Create;
try
sl.LoadFromFile(f);
temp := Copy(sl[0], i*6, 5);
finally
result := temp;
FreeAndNil(sl);
end;
end;
So sollte es gehen.
Genau so ist es nicht mehr garantiert *g* Wenn die Stringlist warum auch immer nicht erzeugt ist, befindet man sich noch nicht im gesicherten Bereich, und kommt dann auch nicht in dieses finally. (Zugegeben, habe ich das allerdings noch nicht erlebt, dass eine Stringlist sich nicht erzeugen lies)