Daten aus Edit.1 speichern

[Kronoss]

Danke.Hätte aber eher an sowas gedacht:

Delphi-Quellcode:

PROCEDURE WriteInMyDatabase(AValue: String);
VAR 
  MyDatabase: File OF Text;
BEGIN
  Assign(MyDatabase, 'C:\DATABASE\MYDATABASE.DAT');
  ReWrite(MyDatabase);
  WriteLn(MyDatabase, AValue);
  Close(MyDatabase);
END;

FUNCTION ReadFromMyDatabase: STRING;
VAR
  Result : STRING;
BEGIN
  Assign(MyDatabase, 'C:\DATABASE\MYDATABASE.DAT');
  Reset(MyDatabase);
  ReadLn(MyDatabase, Result);
  Close(MyDatabase);
  ReadMyDatabase := Result;
END;

[edit=Admin]Delphi-Tags gesetzt. Künftig bitte selber machen. Mfg, Daniel[/edit]