Thema: Delphi Datei öffnen

Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Datei öffnen

  Alt 4. Mär 2007, 19:13
ein kleines Beispiel:
Delphi-Quellcode:
var
  lStream : TFileStream;
  lText : String;
begin
  if FileExists(AFileName) then
    lStream := TFileStream.Create(AFileName, fmOpenReadWrite)
  else
    lStream := TFileStream.Create(AFileName, fmCreate);

  try
    lText := 'Mein Text';
    lStream.Write(lText[1], Length(lText));
  finally
    lStream.Free;
  end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat