Listbox med flere navne

for at fylde din ListBox med alle txt filer kan du køre denne kode i f.eks. din forms OnCreate:

procedure TForm1.FormCreate(Sender: TObject);
var
    fname:array[0..255] of char;
begin
    FillChar(fname, SizeOf(fname),#32);
    StrCopy(fName, '*.txt');
    SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE, LongInt(@fName));
end;

for at indlæse en txt fil som du klikker på i din RichEdit kan du bruge denne kode i din ListBox´s OnClick:

RichEdit1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);

Det her ser pænere ud:

procedure TForm1.FormCreate(Sender: TObject);
var
  filer : string;
begin
  filer:='*.txt';
    SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE, LongInt(filer));
end;

Det virker fint...men den viser en *.txt i starten af listboksen og så kommer navn.txt bagefter

kan den *.txt ikke fjernes så der kun står navne.txt

Jar har ingen ide om hvorfor den skriver *.txt, hvis jeg tester her så skriver den ikke *.txt i starten?

Jeg bruger D5 Interprise, men det er faktisk et irriterende problem..

næ...den er stoppet med det

smid et svar

fandt fejlen det var hvis der ikke er et navn i edit så vil den gemme filen som *.txt og den vises når alle txt filer loades ind.

ok