Memo komponente Buchtaben auslesen,warten,weiterauslesen

[Aenogym]

hi,

hm aus dem kopf würd ich jetzt mal sagen:

Delphi-Quellcode:

var currentChar: string;
    position: integer;
begin
  position := 1;  //zum anfang setzem

  //solange tun, bis position das ende erreicht hat
  while position <= length(memo1.lines.text) do
  begin
    //aktuellen buchstaben einlesen
    currentchar := copy(memo1.lines.text, position, 1);

    //diesen buchstaben in eine listbox einfügen
    //(du kannst den buchstaben auch anders weiterverarbeiten - zB mit dem gauge
    listbox1.items.add(currentchar);

    //position erhöhen
    position := position+1;

    //eine sekunde warten (achtung! delay gehört nicht zu delphi. s.u.)
    delay(1000);
  end;
end;

ja, delay gibts nicht direkt in delphi. deswegen einfach mal hier in der codelibrary schauen: delay.

Aenogym