Thema: Delphi Fragen zur Memobox

Einzelnen Beitrag anzeigen

didda

Registriert seit: 9. Mär 2005
3 Beiträge
 
#4

Re: Fragen zur Memobox

  Alt 4. Aug 2005, 00:31
mir ist eben was einfefallen, habs jetzt so:
Delphi-Quellcode:
a:=0;
idftp1.username:='Ho1';
idftp1.password:='testtest';
repeat

labelededit2.Text:=memo1.Lines[a]; //da a ja 0 ist fängt er einfach mit der ersten zeile an
idftp1.host:=labelededit2.Text;
idftp1.Connect(); //versucht zu connecten
if idftp1.Connected = true then memo2.lines.Add(labelededit2.Text); //wenns geht kommts ins memo2
idftp1.Disconnect;
application.ProcessMessages;
a:=a+1; //a wird um 1 erhört, also die nächste zeile in memo1 beginnt von oben

until
a = i; //bis a gleich der anzahl der zeilen in memo1
label1.Caption:='done//fertigmeldung ausgeben
mag zwar noch nicht ganz sauber sein, aber ich muss zugeben das sich noch ein n00b bin

DANKE für eure Hilfe =o]
  Mit Zitat antworten Zitat