Newbie hjælp

www.udvikleren.dk  ( jeg kunne ikke lade være *GG*)

Din skal stå i listboxen.

Stoney

kan du ikke skrive linien så den finder .wt i en anden mappe
Form1.Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex] + '.wt');

Form1.Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex] + 'C:\tekst\NavnPaaFil.wt');

Stoney har du profil der i www.udvikleren.dk??

Martin

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

ok Stoney

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

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

Martin

marting>>

Ja, jeg er på arbejde nu.

Stoney

ok Stoney

er det Delphi du abr. med??

Martin

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

morten_s> nu vil den jo åbne en bestemt fil! det skal den jo ikke

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