Schleifen probleme

[mkinzler]

Zitat:

im zwischentext ist ein string (ne zahlenkobination) die in memo1 steht.

und diese ist anfänglich auf jeden Fall kürzer als EndVar?
Wegen Einrückung:
Es ist einfach übersichtlicher, wenn man sofort sieht welches begin und end zusammengehören

Delphi-Quellcode:

...
If (sTemp = StrToInt(Va)) Then   
begin
|    ZwischenText := ZwischenText + 'a';
|    sTemp1 := Copy(sTemp1,(LängeeinesBuchstaben),(Length(GanzerText)));
|    sTemp := StrToInt(Copy(sTemp1,1,LängeEinesBuchstaben));
|    If ( Length(ZwischenText) = EndVar) Then
|    begin
|    |    Schalter := 1;
|    |    break;
|    end;
end;
...