wp_xyz hat geschrieben:Zum Glück ging das mit OPM einfach zu installieren..
Warf hat geschrieben:Hehehe... dann wart mal ab bis du nach indy was neues installieren willstIndy muss vor jedem kompilieren von lazarus einmal händisch neu kompiliert werden. Und mit Indy hab ichs auch geschafft den OPM zu zerschießen (sodass der OPM dachte die pakete wären installiert worden, obwohl nur ein teil korrekt installiert wurde. Ich musste dann per hand die OPM dateien löschen damits wieder ging)
Indy ist wie Chemotherapie, funktioniert wenn nix anderes mehr hilft, macht aber im allgemeinen mehr kaputt als es hilft. Ich halte mir mittlerweile eine eigene Lazarus version vor für Indy, damit ich mich nur für projekte bei denen ich das auch wirklich benutze damit rumschlagen muss
Oh, da brauche ich ja Indy... Zum Glück ging das mit OPM einfach zu installieren.
Warf hat geschrieben:Indy ist wie Chemotherapie, funktioniert wenn nix anderes mehr hilft, macht aber im allgemeinen mehr kaputt als es hilft. Ich halte mir mittlerweile eine eigene Lazarus version vor für Indy
idftp1.List(listbox1.items.add(´*.tsˋ,false));
reiter hat geschrieben:Guten. Morgen,
Ok gut zu wissen das ich wenn ich mal auf ein neues Lazarus aktualisiere das mit indy im Hinterkopf habe...
Aber hilft mir momentan auch nicht weiter mit der Listbox und einlesen der Liste ..
Wie kann ich den die Einträge der Reihe nach einlesen in die Listbox...?
Das was ich gefunden habe ist
- Code: Alles auswählen
idftp1.List(listbox1.items.add(´*.tsˋ,false));
Da muss ich aber jede Zeile eingeben , was ich aber nicht weiß Wieviele Zeilen in der Liste sind, also müsste das dynamisch gehen..
Kann mir da mal einer bitte helfen
procedure GetFiles;
var i, e : integer;
begin
Listbox1.Clear;
for e := 0 to Memo1.Lines.Count - 1 do
begin
idFTP1.List(Memo1.Lines[e], False);
for i := 0 to idFTP1.DirectoryListing.Count - 1 do
if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then
ListBox1.Items.Add(idFTP1.DirectoryListing[i].FileName);
end;
end;
idftp1.List(Listbox1.items '*.ts',fasle);
procedure GetFiles;
var i, e : integer;
Dateiendungen : TStringlist;
begin
Dateiendungen := TStringlist.Create;
try
// Hier befüllen wir die Liste der Dateiendungen mit allen gewünschten Werten
DateiEndungen.Add('*.ts');
DateiEndungen.Add('*.avi');
// usw.
Listbox1.Clear;
for e := 0 to Dateiendungen.Count - 1 do
begin
idFTP1.List(Dateiendungen[e], False);
for i := 0 to idFTP1.DirectoryListing.Count - 1 do
if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then
ListBox1.Items.Add(idFTP1.DirectoryListing[i].FileName);
end;
finally
Dateiendungen.Free;
end;
end;
Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste