1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure SaveToFile(filename,text:String);
var Datei:file of char;buf:char;i:integer;
begin
AssignFile(datei,filename);
Rewrite(datei);
for i:=1 to length(text) do begin
  buf:=text[i];
  Write(datei,buf);
end;
CloseFile(datei);
end;					

1:

Datei.free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
 aTextFile : TextFile;


try
  AssignFile(aTextFile,'DateiName');
  Rewrite(aTextFile); // Wird neu erzeugt, auch wenn schon vorhanden
except
  CloseFile(aTextFile);
end;

Writeln(aTextFile, 'Dein Text oder String' ); // Schreibt den text in die datei
Flush(aTextFile);  // Sicherstellen, daß der Text tatsächlich in die Datei geschrieben wird.
CloseFile(aTextFile); // datei schließen					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure SaveToFile(filename,text:String);
var Datei:TextFile;
begin
FileMode:=fmOpenWrite+fmShareDenyWrite;
try
  AssignFile(datei,filename);
  Rewrite(datei);
except
  CloseFile(datei);
  exit;
end;
Write(datei,text);
Flush(datei);
CloseFile(datei);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Datei:System.Text;
begin
  System.Assign(Datei, 'Datei.dat');
  System.Rewrite(Datei);
  try
   {...}
  finally
    System.Close(Datei);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure SaveToFile(filename,text:String);  
var Datei:TextFile;  
begin  
 AssignFile(datei,filename);  
 {$I-}
 Rewrite(datei);  
 {$I+}
 if IOResult=0 then begin
  Write(Datei, Text);
  Flush(Data);
  CloseFile(Data);
 end else ShowMessage('Datei kann nicht geöffnet werden!');
end;