Daten aus Edit.1 speichern

[Kronoss]

Hi.Habe folgendes Problem: Wie kann ich eine Zahl oder ein Wort was ich in Edit.1 eingegeben habe in einer Listbox anzeigen lassen und dann den Inhalt der Listbox in einer neuen Datei speichern??(Also vom Arbeitsspeicher in eine neu erstellte Datei kopieren).
Und wie kann ich die Daten der neuen Datei dann in einer zweiten Listbox wieder anzeigen lassen.
Bin ein echter Anfänger im Bereich Delphi.Ich hoffe ihr könnt mir helfen.
Danke im Vorraus.

Mit freundlichen Grüßen Kronoss

[S2B]

Edit: Ach so! Zuerst mal willkommen in der Delphi-PRAXIS! (Das wollt ich immer schon mal sagen)

Delphi-Quellcode:

  ListBox1.Items.Add(Edit1.Text);
  ListBox1.Items.SaveToFile('Dateiname');
  ListBox2.Items.LoadFromFile('Dateiname');

Müsste gehen...

[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]

[S2B]

Anfänger? Tut mir leid, aber das nehm ich dir nicht ab! :mrgreen: Woher hast du den Code?
Könntest du das nächste Mal den Code als Delphi-Code reinschreiben? Dann kann man ihn besser entziffern!

[Kronoss]

Bin wirklich ein Anfänger.Der Code ist ja auch nicht von mir.Den habe ich unter Google gefunden.
Das mit dem Delphi-Code setzen wusste ich nicht.Sorry

[S2B]

Immernoch OT: Macht nichts! Ich hab die am Anfang auch nicht gesetzt... :mrgreen: