Schleifen probleme

[mkinzler]

Was steht anfänglich in ZwischenText?

Btw. Rücke mal so ein das

Delphi-Quellcode:

begin
   ...
end;

auf einer Ebene stehen dann ist es übersichtlicher.

[DeddyH]

Was passiert denn, wenn keine der drei Bedingungen zutrifft?

[gangs-taas]

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

wie einrücken ?!

man ich verseh nicht wie ihr es haben wollt xD

hm...

wenn nichts eintrifft .. ich glaub dann ist das pech

hab ich vergessen im quelltext zu schreiben.

reicht das wenn ich einfach unten drunter schreib

else
break


???

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

[DeddyH]

Zitat von gangs-taas:

reicht das wenn ich einfach unten drunter schreib

else
break

Probier' s doch einfach aus . Aber sag doch einmal genau, was der Code machen soll, evtl. gibt es da auch eine übersichtlichere Lösung dafür.

[gangs-taas]

Zitat von 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?

nein die ist auf jedenfall länger als EndVar


also meinetwegen Memo1.text = 000290267158000290
und Endvar = 3



EDIT



das ist blödsinn was ich hier geschrieben habe.
sorry

irg. verdreht


also zwischentext soll hinterher genau so lang sein wie EndVar

ich mein


wenn
EndVar = 3

dann soll zwischentext hinterher GENAU 3 Zeichen enthalten !

[mkinzler]

Dann ist es ja auch klar, warum es eine Endlosschleife ist.

[gangs-taas]

und das mit dem hochzählen klappt irg. auch nicht so ich das wollte ...


so ich muss jetzt leider weg

ich gucke nacher nochmal was ihr geschrieben habt und probiere es dann aus...

[mkinzler]

Die Lösung sthet eigentlich schon da ( du musst diese nur umsetzen)

[gangs-taas]

also es ist bei mir jetzt keine endlosschleife mehr dafür klappt das mit dem hochzählen nicht so wie ich das will ...

sTemp1 müsste ja in der ersten runde

000290 sein

in der 2ten

267158

und in der dritten


wieder 000290


(weil der ganze text das ist => 000290267158000290



so nun klapt das aber nicht


in der ersten runde ist es 000290 8was ja auch so gewollt ist)

diezweite runde klappt auch dann ist sTemp hinterher 267158


aber in der dritten runde ist stemp1 nicht 000290 sondern 267158000290

und dann ghet es nicht mehr ....