26. september 2003 - 14:01Der er
10 kommentarer og 1 løsning
Åbne kun en linie i txt-fil. Hvordan?
Jeg har nogle listboxe, som skal udfyldes med data via en Open.Dialog. Hvis jeg så har en txt-fil med nogle linier data, så skal man f.eks. i første listbox kun åbne første linie i den første listbox. I den næste listbox, skal den så vise anden linie i txt-filen osv. Jeg har foreløbig sat dette op:
procedure TForm1.bn1Click(Sender: TObject); begin if OpenDialog1.execute then begin listbox1.clear; listbox1.Items.loadfromfile(opendialog1.filename); end;
end;
men det åbner jo hele txt-filen i den første listbox. Hvordan løser jeg dette?
Du finder ikke TStrings på dine toolbars, det er ikke et synligt objekt som f.eks. Listbox. (Grunden til at jeg ikke giver flere detaljer er at jeg ikke har arbejdet med Delphi i de seneste 5-6 år, men bruger C++ Builder, der ligner meget. Jeg kunne bare ikke lade være med at prøve at svare ...)
procedure TForm1.Button1Click(Sender: TObject); var TxtFil: TStringList; begin if OpenDialog1.execute then begin TxtFil := TStringList.Create; TxtFil.LoadFromFile(OpenDialog1.FileName); Listbox1.Clear; Listbox1.Items.Add(TxtFil.Strings[0]); TxtFil.Free; end; end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
