Registriert seit: 24. Okt 2004
1.542 Beiträge
Delphi XE Architect
|
Re: Datei wird von einem anderen Prozess benutzt-trotzdem le
21. Jan 2005, 12:16
Delphi-Quellcode:
procedure LoadIntoStrings(aFileName: String; var aStrings: TStrings);
var
FS: TFileStream;
begin
FS := TFileStream.Create(aFileName, fmOpenRead or fmShareDenyNone);
try
aStrings.LoadFromStream(FS);
finally
FS.Free;
end;
end;
Du hast das var vergessen! Ohne des wird nämlich nichts mehr zurückgeben
Delphi-Quellcode:
function LoadIntoStrings(aFileName: String) : TStrings;
var
FS: TFileStream;
begin
FS := TFileStream.Create(aFileName, fmOpenRead or fmShareDenyNone);
try
result.LoadFromStream(FS);
finally
FS.Free;
end;
end;
So müsste es doch auch gehen?
Weil dann könnte man gleich so schreiben:
slog.lines := LoadIntoStrings('C:\Path\log.log');
//edit hab nur auf Delphi Tags geändert
Alex "Sage nicht alles, was du weißt, aber wisse alles, was du sagst!" Matthias Claudius
"Wer sich über Kritik ärgert, gibt zu, daß er sie verdient hat." Tacitus
|