Einzelnen Beitrag anzeigen

Benutzerbild von gsh
gsh

Registriert seit: 24. Okt 2004
1.542 Beiträge
 
Delphi XE Architect
 
#3

Re: Datei wird von einem anderen Prozess benutzt-trotzdem le

  Alt 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
  Mit Zitat antworten Zitat