umfüllaufgabe

[TheAn00bis]

Hi, ich will in folgenden Code eine Kontrolle einbauen, die überprüft, ob eine Zeile mit selbem Inhalt im Memo-Feld bereits vorhanden ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  procedure fuelleum(VAR von, nach :INTEGER; kapaznach : INTEGER);
    begin
     if von <= kapaznach-nach
      then
       begin
         nach := nach + von;
         von:= 0;
       end
      else
       begin
         von:= von - (kapaznach-nach);
         nach:= kapaznach;
       end;
    end;
begin
    kapaz1:=8;
    kapaz2:=5;
    kapaz3:=3;

    fass1:= strtoint(edit1.text);
    fass2:= strtoint(edit2.text);
    fass3:= strtoint(edit3.text);

    ziel1:=strtoint(edit4.text);
    ziel2:=strtoint(edit5.Text);
    ziel3:=strtoint(edit6.text);
    memo1.Lines.add(inttostr(fass1)+'  '+inttostr(fass2)+'  '+inttostr(fass3));
    repeat
      if fass3=Kapaz3
        then fuelleum(fass3,fass1, kapaz1)
        else if fass2 > 0
        then fuelleum(fass2, fass3, kapaz3)
        else fuelleum(fass1,fass2, kapaz2);


    memo1.Lines.add(inttostr(fass1)+'  '+inttostr(fass2)+'  '+inttostr(fass3));
    until
    (fass1=ziel1)And(fass2=ziel2)And(fass3=ziel3)Or[b](Schondrin=true);[/b]
    
end;

end.

Wenn die Zeile schon existiert soll Schondrin true sein, ansonsten falsch. Jetzt wollte ich eine for schleife einbauen, die jede Zeile des Memofeldes durchgeht und überprüft, ob diese gleich der ist, die jetzt geschrieben wird. Meine eigentlich Frage:

Wie kann ich überprüfen, wieviele Zeilen bereits geschrieben wurden? Also, welche die neuste ist.


Pls help - lol die smilies sind hier aber komisch