(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: Datei öffnen
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
|