AW: Erhalte vom Programm "Keine Rückmeldung" - Speicherüberlauf?
10. Nov 2015, 19:21
@DieFliege: Eine winzige Kleinigkeit hast du übersehen.
zwPos := Pos(' ', kopText);
Wenn nun kein Leerzeichen gefunden wird, welchen Wert hat dann wohl zwPos? Richtig: 0. Und genau da liegt der Hase im Pfeffer, denn du fragst niemals ab, ob das Leerzeichen auch gefunden wurde, was dann zu einer Endlosschleife führt. Nachstellen kannst du das, indem du mit dem gegebenen Text als Zeilenbreite einmal die 40 einstellst und dann die While-Schleife durchstepst.
Beheben kannst du dieses unerwünschte Verhalten, indem du nach der Pos-Abfrage prüfst, ob zwPos > 0 ist.
|