Co jest z tą procedurą nie tak ?

0

Cześć.

Po zaznaczeniu w DBGrid wybranego rekordu tabeli
procedura ta powinna wyświetlić na ListView plik np 123.jpg , gdzie 123 jest jednocześnie polem z tabel, które pozwala skojarzyć odpowiedni plik.

HELP ME !!!!!!!!!

procedure Wyswietl(ANumer: string);
var
recSzuk: TSearchRec;
Sciezka: string;

begin
Sciezka:= format('c:\katalog\%s*.*',[ANumer]);
if FindFirst(Sciezka, 0, recSzuk) = 0 then
begin
ListView1.items.add(recSzuk.Name);
while FindNext(recSzuk) = 0 do
ListView1.items.add(recSzuk.Name);
FindClose(recSzuk);
end;

end;
--roberto

0

Może zamiast FindFirst(..., 0, ....) spóbuj faAnyFile

1 użytkowników online, w tym zalogowanych: 0, gości: 1