Avatar billede cdmann Nybegynder
01. august 2005 - 13:46 Der er 7 kommentarer og
1 løsning

tekst filer der sættes ind i memo

Hej , jeg savner noget kode der kan i en listbox sætte en hel masse txt filer ind (almindelig tekst filer med .txt) ind i en listbox og derefter ved klik på tekstfilens navn åbner den i en memo som tekst .
Filer hedder fx et.txt og to.txt etz og de ligger alle sammen i en mappe der hedder tekst.
Med et klik på en knap (botton) sættes navnene på tekst filerne altså et.txt og to.txt ind i listboksen og ved at klikke på en af dem i listboksen vises den i memo som er lige ved siden af.
Kan noget sådant lade sig gøre ?
Altså ikke noget med åben fil og det sædvanlige.

På forhånd tak !
Avatar billede kroning Nybegynder
01. august 2005 - 14:00 #1
Du har en Button1, ListBox1 og en Memo1 på din form:

procedure TForm1.Button1Click(Sender: TObject);
var
  FilNavn : string;
begin
  FilNavn:='c:\hk\*.txt';
    SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE,LongInt(FilNavn));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    Memo1.Lines.LoadFromFile('c:\hk\'+ListBox1.Items[ListBox1.ItemIndex]);
end;
Avatar billede kroning Nybegynder
01. august 2005 - 14:03 #2
Eller det var måske kun filnavnet der skulle vises i memoen?

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Memo1.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]);
end;
Avatar billede cdmann Nybegynder
01. august 2005 - 15:29 #3
Hej Fantastisk MEN den sætter det som står i listboksen , altså filens navn , ind i memoen ? den skulle åben hele tekstfilen med teksten i , i memoen ? så teksten i tekstfilen kan læses.(i memoen)
Men måske har jeg ikke formået at udtrykke mig klart nok.
Så det funker næsten.
Avatar billede cdmann Nybegynder
01. august 2005 - 17:01 #4
Kan det hedde noget med load ?
Avatar billede kroning Nybegynder
01. august 2005 - 17:26 #5
Jeg skrev jo i min første post hvordan man loader filen ind i memoen.
Avatar billede kroning Nybegynder
01. august 2005 - 17:27 #6
Så det.
Avatar billede cdmann Nybegynder
01. august 2005 - 22:42 #7
Det er mig der kludre i det.
Undskyld !
Mange tak, det virker ...
Tusinde tak for hjælpen og godt du er tålmodig : )
Avatar billede kroning Nybegynder
02. august 2005 - 08:36 #8
Ja det er utrolig hvad nogle point, som ingen ved hvad skal bruges til, kan gøre ved en :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester