Jak w filelistview wybrać kilka plików (multiselect) i zapisać ich scieżki do plliku textowego ? ;-( [???]
0
0
skoro z tym sobie nie radzisz to moze daruj sobbie programowanie?
to nie jest wieczorowka przedszkolna
lenistwo i brak checi do pomyslenia
w 30sek (albo i szybciej):
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to filelistbox1.Count -1 do //mala poprawka
if filelistbox1.Selected[i] then
listbox1.Items.Add(filelistbox1.Items.Strings[i]);
end;
// matrox racja, jednakze u mnie dzialo dobrze, sam nie wiem teraz czemu :). blad wynikal z tego ze robilem to szybko :d
-
- jesli chcesz chlopcze to mozesz listbox1 zapisac do pliku:
listbox1.items.savetofile('plik.xxx');
0
for i:=0 to filelistbox1.SelCount do
Sprawdzałeś to chociaż?
var
I: Integer;
F: TextFile;
Dir: String;
begin
AssignFile(F, 'c:\plik.txt');
with FileListBox1 do
try
if Directory[Length(Directory)] <> '' then
Dir := Directory + '' else Dir := Directory;
Rewrite(F);
for I := 0 to Count -1 do
if Selected[I] then WriteLn(F, Dir + Items[I])
finally
closeFile(F);
end;
end;
0
Dzięki za "zj...by" , może trochę spokojniej jestem dopiero w żłobku [cya]