A wiec mam taki kod
i wywala ni blad jak dojdzie do 2 pozycji w listboxie
[ Dodano: 22-06-2007, 20:51 ]
Dobra proble rozwiazalem. Wystarczylo komede MkDir('CK'); wstawic przed petle. Jak byla w petli program chcial caly czas tworzyc nowy folder.
Kod:
var
NazwaPliku:string;
q,z,l:integer;
begin
l:=listbox3.items.Count;
l:=l-1;
if l>0 then
begin
for q:=0 to l do
begin
edit4.Text:=listbox3.Items[z];
ListBox3.ItemIndex:=z;
z:=z+1;
sleep(500);
NazwaPliku := ('C:DK'+ edit4.text + '.txt');
MkDir('C:DK');
Memo2.Lines.SaveToFile(NazwaPliku);
end;
end;
i wywala ni blad jak dojdzie do 2 pozycji w listboxie
[ Dodano: 22-06-2007, 20:51 ]
Dobra proble rozwiazalem. Wystarczylo komede MkDir('CK'); wstawic przed petle. Jak byla w petli program chcial caly czas tworzyc nowy folder.