DJ BPM Programm,brauche dringend Hilfe!!!

[Christian Seehase]

Moin Dominik,

TListBox.Items nicht TListView.Items

[EDIT]
Ausserdem: Methoden, nicht Eigenschaften
[/EDIT]

[joe.fresh]

hi!
ich finde da einfach nix.
kannst du nicht mal einfach ein paar zeilen vom coe hinschreiben?

mfg

dominik

[Christian Seehase]

Moin Dominik,

dann mal die Auflösung

Die TListBox.Items sind vom Typ TStrings, und TStrings hat die Methode LoadFromFile.
Ergo:

ListBox1.Items.LoadFromFile('Hier der Pfad zu der Datei');

[joe.fresh]

ah danke dir!!!

ok und speichern in die datei is dann

Code:

listbox1.item.savetofile (' ');

oder wie?


mfg

dominik

[Daniel B]

Hallo,

ja mit SaveToFile('C:\Test.txt');

Grüsse, Daniel

[joe.fresh]

hi!bis jetzt ist alles glatt gelaufen
aber beim versuch alles zu speichern komm
die meldung dass die datei nicht erstellt werden kann.
wieso das?
hier ein teil vom quelltext.



danke

dominik

Code:

type
tdatei = file;
var speicher :tdatei;


procedure TForm1.Button1Click(Sender: TObject);
var hilf,hilf2,hilf3,hilf4:string;
begin
//hinzufügen
hilf:=edit1.text;
hilf2:=edit2.text;
hilf3:=' - ';
hilf4:=edit3.text;
if edit1.text=''
then showmessage ('Bitte erst den Namen eingeben')
else listbox1.items.add(hilf+hilf3+hilf2+hilf3+hilf4);

assignfile(speicher,'speicher.dat');
{$I-}
Reset (speicher);
{$I+}
if ioresult<>0 then rewrite(speicher);

listbox1.items.savetofile ('speicher.dat');
closefile(speicher);
end;

und hier der button der dann die listbox aus dem file lädt.

Code:

procedure TForm1.Button4Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('speicher.dat');
end;

[Christian Seehase]

Moin Dominik,

weil Du Dir das ganze Assing, Rewrite usw. sparen kannst, ausserdem damit sperrst Du die Datei.

[joe.fresh]

jawuuhl es klappt!

boah,danke chris du hast mir echt sau geholfen!!!!
ich werde jetzt erstmal rausgehen und später noch ein
paar features dazu machen!
DANKE DANKE DANKE


bis dann
dominik