Avatar billede maxium Novice
04. marts 2002 - 09:49 Der er 11 kommentarer

Newbie hjælp

Jeg har linien

Form1.Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex] + '.wt');

men når at den skal hente .wt filen skal den hentes fra en mappe (tekst) men hvordan siger jeg at den skal hente fra mappen tekst
Avatar billede stoney Nybegynder
04. marts 2002 - 09:56 #1
www.udvikleren.dk  ( jeg kunne ikke lade være *GG*)

Din skal stå i listboxen.

Stoney
Avatar billede maxium Novice
04. marts 2002 - 09:58 #2
kan du ikke skrive linien så den finder .wt i en anden mappe
Form1.Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex] + '.wt');
Avatar billede morten_s Nybegynder
04. marts 2002 - 10:14 #3
Form1.Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex] + 'C:\tekst\NavnPaaFil.wt');
Avatar billede Marting Forsker
04. marts 2002 - 10:21 #4
Stoney har du profil der i www.udvikleren.dk??

Martin
Avatar billede stoney Nybegynder
04. marts 2002 - 10:25 #5
marting >>

Nej, det har jeg ikke.

Jeg gjorde det kun for at drille maximum.
Det plejer at være hans standard svar her på eksperten.dk

Stoney
Avatar billede Marting Forsker
04. marts 2002 - 10:44 #6
ok Stoney

hvad brug han som standard svar på www.udvikleren.dk??

måske www.eksperten.dk *GG*
er du på abr. nu??

Martin
Avatar billede stoney Nybegynder
04. marts 2002 - 10:53 #7
marting>>

Ja, jeg er på arbejde nu.

Stoney
Avatar billede Marting Forsker
04. marts 2002 - 10:55 #8
ok Stoney

er det Delphi du abr. med??

Martin
Avatar billede Marting Forsker
04. marts 2002 - 11:59 #9
Stoney!!

jeg kun se på min telefon du har sende noget til mig igår!! jeg kigge på det når jeg komme hjem!!!

Martin
Avatar billede maxium Novice
04. marts 2002 - 17:15 #10
morten_s> nu vil den jo åbne en bestemt fil! det skal den jo ikke
Avatar billede stoney Nybegynder
04. marts 2002 - 17:24 #11
procedure FindAll (const Path: String;
                        Attr: Integer;
                        List: TStrings);
var
  Res: TSearchRec;
  EOFound: Boolean;
begin
  EOFound:= False;
  if FindFirst(Path, Attr, Res) < 0 then
    exit
  else
    while not EOFound do begin
      List.Add(Res.Name);
      EOFound:= FindNext(Res) <> 0;
    end;
  FindClose(Res);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FindAll('C:\winnt\*.wt',faAnyFile,ListBox1.Items);
end;

Stoney
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