Mit der Freigabe und einem Try...finally-Block könnte es dann so aussehen:
Delphi-Quellcode:
function GetId(f: string; i: integer): string;
var
j: integer;
sl: TStrings;
begin
result := '';
sl := TStringList.Create;
try
sl.LoadFromFile(f);
for j := 0 to 4 do
result := result + sl[0][(i * 6) + j];
finally
FreeAndNil(sl);
end;
end;
Übrigens: Die zusätzliche String-Variable kann man sich auch sparen, wenn man gleich result verwendet
