1:
2:
3:
4:
5:
6:
7:
8:

uses IniFiles;
procedure SaveEdit;
IniDat: TInifile;
begin
IniDat := TIniFile.Create('.\Sitzplätze.txt')
IniDat.WriteString('Sitzplaznummer','Karl', 'Plaz 34');
IniDat.Free.
end;					

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

var
   pfad : String;
begin
   pfad := 'Textfile.txt'; //hier im selben Verzeichnis die angegbene Datei, könnte man auch über Dialoge regeln
   {$I-} //damit IOResult belegt wird;
   AssignFile(f, pfad);
   reset(f);  
   ShowMessage(IntToStr(IOResult)); //Kannst dir den Zugriff ausgeben lassen
   seek(f, filesize(f)); //setzt den Zeiger auf das Ende der Datei
   write(f, Edit1.Text);
   write(f, Edit2.Text);
   CloseFile(f);
   {$I+}
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
IniDat: TInifile;
begin
IniDat := TIniFile.Create('fw.txt')
IniDat.WriteString('1.1.','reihe.Text', 'platz.Text');
IniDat.Free;


  IdFTP1.Disconnect;
  IdFTP1.Host := 'ftp.FTPServer.de';
  IdFTP1.Passive := false;
  IdFTP1.Username := 'XXXXXXX';
  IdFTP1.Password := 'XXXXXXX';

  try
    IdFTP1.Connect(true,5000);
    if IdFTP1.Connected then begin
     IdFTP1.ChangeDir('fw');
     IdFTP1.TransferType := ftASCII;


      IdFtp1.Put('C:\fw.txt','fw.txt');
 end;
  except
    raise;
  end;
  label1.caption:='Done!';
end;




end.					

1:

IniDat := TIniFile.Create('fw.txt')					

1:

IniDat := TIniFile.Create('.\fw.txt')					

1:

IniDat.WriteString('1.1',reihe.Text, sitzplatz.Text);					

1:

IniDat.WriteString('1.1',Form1.reihe.Text, Form1.sitzplatz.Text);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure Log(LOGFILE, IP: String);
var
  Datei : System.Text;
begin
  { datei anlegen wenn sie nicht existiert }
  if not FileExists(LOGFILE) then begin
    AssignFile(Datei, LOGFILE);
    ReWrite(Datei);
    Writeln(Datei, IP);
    Closefile(Datei);
    end else begin { ansonsten hineinschreiben }
      AssignFile(Datei, LOGFILE);
      Append(Datei);
      Writeln(Datei, IP);
      Closefile(Datei);
      end;
end;

// aufruf
Log('Datei.txt', '1.1.'+reihe.Text+'.'+sitzplatz.Text);