einen String in eine neue/leere Datei schreiben

[mjenke]

Zum Beispiel folgendermassen:

Delphi-Quellcode:

procedure StringInDatei(zeile: string);
var
  Datei: TextFile;
begin
  AssignFile(Datei,'c:\temp.txt');
  ReWrite(Datei);
  WriteLn(Datei,zeile);
  CloseFile(Datei);
end;

zum schreiben eines Strings in die Datei, und zum Lesen:

Delphi-Quellcode:

function StringAusDatei: string;
var
  Datei: TextFile;
  zeile: string;
begin
  AssignFile(Datei,'c:\temp.txt');
  Reset(Datei);
  ReadLn(Datei,zeile);
  CloseFile(Datei);
  result := zeile;
end;

Dabei ist aber folgendes zu beachten. Ich gehe jetzt der Einfachheit halber davon aus, dass Du immer in die Datei temp.txt auf Laufwerk C schreibst. Natürlich kannst Du den Dateinamen auch in einer Variablen übergeben oder was auch immer. Ausserdem übernimmt die Funktion zum Schreiben in die Datei den String und nicht die ComboBox. Auslesen musst Du die also vorher selbst, z. B. über:

Delphi-Quellcode:

if ComboBox.ItemIndex <> -1 then
  StringInDatei(ComboBox.Text);

Die Funktion würde also NICHT aufgerufen, wenn nichts selektiert ist (ItemIndex ist -1, wenn man in der ComboBox nichts auswählt), und wenn etwas selektiert ist, wird der gewählte Text in die Datei geschrieben. Durch das ReWrite wird die Datei übrigens jedesmal ÜBERschrieben. Es wird nichts angehängt!!!

Der Aufruf der Funktion StringAusDatei liefert Dir einfach die erste Zeile der Datei zurück. Das sollte in diesem Fall ja der vorher hineingelegte String sein...

AktUser := StringAusDatei;
Matthias

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]