Hjælp til min huskeliste

En hel simpel måde at gøre det på er at bruge en Memo

Load memo

Memo1.Lines.LoadFromFile('c:\test');

Men som du selv siger vil du bruge en listbox her kan du have nogle edit felter som bliver gemt som txt filer  når du klikker på listbox(item) dukker beskeden op i edit felterne.

save

memo1.Lines.SaveToFile('c:\test');

gem fra listbox

var
filer: string;
begin
Afvent.Clear;
Listbox1.Items.add(Edit1.text);
afvent.Lines.add(edit9.Text);
afvent.Lines.add(editean.Text);
afvent.Lines.Add(combobox1.Text);
afvent.Lines.add(edit1.Text);
afvent.Lines.add(edit8.Text);
afvent.Lines.add(C1.Text);
afvent.Lines.add(C2.Text);
afvent.Lines.add(ankomst.Text);
afvent.Lines.add(afrejse.Text);
afvent.Lines.add(Edit2.Text);
afvent.Lines.add(udenmoms.Text);
afvent.Lines.add(Tax.Text);
afvent.Lines.add(Edit5.Text);
afvent.Lines.add(C5.Text);
afvent.Lines.add(Edit6.Text);
afvent.Lines.add(C3.Text);
afvent.Lines.add(Edit7.Text);
afvent.Lines.add(C4.Text);
afvent.Lines.Add(kommentar.Text);
Afvent.Lines.SaveToFile(Edit1.Text + '.txt');
Listbox1.Clear;
filer:='*.txt';
SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE, LongInt(filer));

end;

db click på item i listbox

var
filer: string;
begin
Afvent.Clear;
Listbox1.Items.add(Edit1.text);
afvent.Lines.add(edit9.Text);
afvent.Lines.add(editean.Text);
afvent.Lines.Add(combobox1.Text);
afvent.Lines.add(edit1.Text);
afvent.Lines.add(edit8.Text);
afvent.Lines.add(C1.Text);
afvent.Lines.add(C2.Text);
afvent.Lines.add(ankomst.Text);
afvent.Lines.add(afrejse.Text);
afvent.Lines.add(Edit2.Text);
afvent.Lines.add(udenmoms.Text);
afvent.Lines.add(Tax.Text);
afvent.Lines.add(Edit5.Text);
afvent.Lines.add(C5.Text);
afvent.Lines.add(Edit6.Text);
afvent.Lines.add(C3.Text);
afvent.Lines.add(Edit7.Text);
afvent.Lines.add(C4.Text);
afvent.Lines.Add(kommentar.Text);
Afvent.Lines.SaveToFile(Edit1.Text + '.txt');
Listbox1.Clear;
filer:='*.txt';
SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE, LongInt(filer));

hent til listbox ved start af program...

var
  filer : string;
begin
afvent.Clear;
Listbox1.Clear;
filer:='*.txt';
SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE, LongInt(filer));

nu har der væet brugt andre felter end edit men du kan bare sortere lidt i koden...

Er det bevidst at koden er ens i overskrifterne "gem fra listbox" og "db click på item i listbox" ??

Jeg ved ikke om jeg fik forklaret mig godt nok!! er ikke altid god til at formulere det jeg tænker.

jeg ville gerne have at det kunne se sådan her ud grafisk http://www.ladegaard.nu/test.jpg  og når jeg klikker på fks. kiropraktor så det viste vindue op.. er det overhovedet muligt med listboxen

nej det er en fejl....var lige på vej ud af døren (sorry)

Afvent.Clear;
Afvent.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
Edit9.Text:= afvent.Lines[0];
Editean.Text:= afvent.lines[1];
Combobox1.Text:= afvent.lines[2];
Edit1.Text:= afvent.Lines[3];
Edit8.Text:= afvent.Lines[4];
C1.Text:= afvent.Lines[5];
C2.Text:= afvent.Lines[6];
ankomst.Text:= afvent.Lines[7];
afrejse.Text:= afvent.Lines[8];
Edit2.Text:= afvent.Lines[9];
udenmoms.Text:= afvent.Lines[10];
tax.Text:= afvent.Lines[11];
Edit5.Text:= afvent.Lines[12];
C5.Text:= afvent.Lines[13];
Edit6.Text:= afvent.Lines[14];
C3.Text:= afvent.Lines[15];
Edit7.Text:= afvent.Lines[16];
C4.Text:= afvent.Lines[17];
Kommentar.Text:= afvent.Lines[18];

kigger lige på det senere *S*