Write

Owned by Merve Yurdakul
Feb. 10, 2017
1 min read

Parameter

(F : TFileClass; Test : String);

Beschreibung

Die Prozedur schreibt Daten in eine mit AssignFile initialisierte Datei. Im Gegensatz zu WriteLn wird am Ende des Textes kein Zeilenumbruch geschrieben.

Beispiel

Siehe AssignFile

try
  AssignFile(F, 'c:\FileName.txt');
  try
    Rewrite(F);
    Write(F, 'Hello');
    Write(F, ' ');
    Write(F, 'World');
    WriteLn(F, '');      {Hello World}
  finally
    F.Free;
  end;
except
  ShowMessage('Exception');
end;

Beispiel

var
  F : TFileClass;
begin
  //...
  try
    AssignFile(F, 'c:\FileName.txt');
    try
      Rewrite(F);
      Write(F, 'Hello');
      Write(F, ' ');
      Write(F, 'World');
      WriteLn(F, '');      {Hello World}
    finally
      F.Free;
    end;
  except
    ShowMessage('Exception');
  end;
  //...
end;