Witam nie wiem co mam =BFle :/ jesli widzicie b=B3ad pom=F3=BFcie bo juz
slepne i nic...
chcia=B3em zeby dane z LISTBOX1 - (dane to sciezki do plik=F3w) by=B3y
wczytywane pokolieji bez 2 pierwszychy i bez ostatniego
czyli brany pokoleji jeden do sprawdzenia lisbox jak nic nie znajdzie
to kolejny a cos mi nie wychodzi :/
<code>procedure TForm1.Button2Click(Sender: TObject);
var
Position: integer;
ms: TMemoryStream;
i: Integer;
MyProcList: TstringList;
FN,a,b,c:string;
begin
if (MyProcList<>nil) then
begin
for I :=3D 3 to (ListBox1.items.count - 1)-1 do { For each item }
begin
FN :=3D ListBox1.items.strings[I];
Position :=3D ScanFile(FN, edit1.Text, False);
Label3.Caption:=3DFN;
if (Position>0) then
Label1.Caption:=3D'String FOUND'
else
Label1.Caption:=3D'CLEAN';
end;
end;
end;</code>
