Entwickler-Ecke :: Thema anzeigen - Speichern und Auslesen in/aus .txt

Bishop - Mi 07.01.04 20:04
Titel: Speichern und Auslesen in/aus .txt - Datei

Hallo.
Für ein Schulprojekt (ihr könnt es wahrscheinlich nicht mehr hören :roll: ) bastel ich grad an ein Telefonbuch Programm. Hab zwar schon einen kleinen simplen Taschenrechner gebastelt, doch wollt ich doch etwas mehr "klasse" haben :)

Habe HIER [http://www.thebullet.de/images/misc/telefonbuchhilfe.JPG] mal einen Screenshot hochgeladen.

Es geht mir darum dass ich die Einträge aus den EditFeldern in einer Textdatei speichern kann ohne dass die txt-Datei überschrieben wird.

und

Dass beim Starten des Programmes die Datei in eine Listbox (bin auch für andere Ideen offen) geladen wird. Eventuell auch per Buttonklick. Sie sollen nur dort erscheinen. Anklicken ist meines erachtens nicht von nöten.

Die Suchfunktion hat mir leider nicht geholfen.

Mehr als Dankbarkeit kann ich allerdings auch nicht bieten.

MfG Bishop :nixweiss: [/url]

Bishop - Mi 07.01.04 21:07

Zitat:

Sieh dir mal

TStrings.Add
TStrings.SaveToFile
und
TStrings.LoadFromFile

an

(TListBox hat eine Property Items vom Typ TStrings)

Danke. Leider bin ich trotzdem ein blutiger Anfänger. Weiss nicht genau wie ich das einsetzen soll. Hast du vielleicht noch ein paar ergänzende Tips? :?!?:

Anonymous - Mi 07.01.04 21:09

Der grundlegende Tipp heißt wohl "F1" :twisted:

mit Listbox.Items.Add('Zeile') fügst du eine neue Zeile ein, und bei LoadFrom-/SaveToFile gibst du als Parameter den Dateinamen an.

Bishop - Mi 07.01.04 21:43

Sorry. Wenn ich meine das ich ein blutiger Anfänger bin, dann meine ich, dass das Blut nur so spritzt. Hab keine Ahnung wie ich das anwenden soll. Kannst du EVENTUELL vielleicht ein CodeBeispiel posten??? :oops:

MfG
der "Verwirrte" Bishop

Anonymous - Mi 07.01.04 21:53

Setz doch einfach in on Show deiens Forms:

Delphi-Quelltext

1:	listbox1.items.loadfromfile(extractfilepath(paramstr(0)) + 'datei.txt');

und zum speichern z.B. so (Button1.Click)

Delphi-Quelltext

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

var str : tstringlist;
x : integer;
...

str := tstringlist.create;
str.loadfromfile(extractfilepath(paramstr(0)) + 'datei.txt');


str.add(Edit1.Text);
str.add(Edit2.Text);
str.add(Edit3.Text);

str.savetofile(extractfilepath(paramstr(0)) + 'datei.txt');
str.free;

gruß

ixtreme.de

Anonymous - Mi 07.01.04 21:54

Zitat:

Delphi-Quelltext

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

str := tstringlist.create;
str.loadfromfile(extractfilepath(paramstr(0)) + 'datei.txt');
for x:= 0 to listbox1.items.count - 1 do
begin
str.add(listbox1.items[x]);
end;
str.savetofile(extractfilepath(paramstr(0)) + 'datei.txt');
str.free;

Was einem simplen

Delphi-Quelltext

1:	Listbox1.items.SaveToFile(...);

gleichkommt.

Anonymous - Mi 07.01.04 21:57

ja weil ich eigentlich str.add(edit1.text) schreiben wollte :-)

man könnte es so
listbox1.items.savetofile(...);machen wenn man die Editfälder erst ins Listboxschreibt was einfacher wäre. Da ich aber ein Quärdenker bin mach es lieber wie oben beschrieben...*g* Dann lernst du auch mal wie ein Psycho dzu denken!

Gruß

ixtreme.de

P.S. Obwohl, ne!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Ich lass das lieber mit dem posten heute!

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!