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;
...