Erhalte vom Programm "Keine Rückmeldung" - Speicherüberlauf?

[DieFliege]

Memo2.Text := WrapText(StringReplace(Memo1.Text,#13#10,' ',[rfReplaceAll])
Ersetzt er damit nicht alle Leerzeichen mit einem Zeilenumbruch?

@Lukie: Die Einrückung habe ich im "Progrämmchen" erst mal weg gelassen, um meinen Fehler zu finden


So, ich habe nun nach Perlsau's Tipp meinen Quelltext angepasst:

Delphi-Quellcode:

  while textlaenge > textbreite do
  begin
    zwPos := Pos(' ', kopText);
    if zwPos > 0 then
      begin
        zeilenlaenge := zeilenlaenge + zwPos;


        if zeilenlaenge > textbreite then
          begin
            ausgabetext := ausgabetext + Copy(orgText, 1, zlPos);
            ausgabetext := ausgabetext + zu;
            Delete(orgText, 1, zlPos);
            textlaenge := textlaenge - zlPos;
            zlPos := 0;
            zwPos := 0;
            zeilenlaenge := 0;
          end
      else
        begin
            Break;
        end;

        zlPos := zlPos + zwPos;
        Delete(kopText, 1, zwPos);
     end;

  end;

Nun brummt das Programm bei der Einstellung nicht mehr auf.

LG Micha

[Perlsau]

Nein, StringReplace funktioniert umgekehrt, wie ein Blick in die Online-Hilfe zeigt:
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; StringReplace ersetzt im String S die Vorkommen des in OldPattern angegebenen Teilstrings durch den in NewPattern angegebenen Teilstring.

Was bedeutet "aufbrummen" in deinem Kontext? Bei mir hat da außer mir selbst nichts gebrummt.

Zu deiner Programm-Änderung: zwPos = 0, wenn der Suchstring nicht gefunden wurde. Dann sind aber noch nicht zwangsläufig alle Wörter aus dem ersten Memo ins zweite übertragen, weil das ja innerhalb des neuen Begin-End-Blocks geschieht und dieser bei zwPos = 0 nicht mehr durchlaufen wird. Daher solltest du das nach Abarbeiten der While-Schleife noch überprüfen. Zum Fehlverhalten kam es, wenn ein Wort länger als die eingestellte Zeilenbreite ist, da kannst du verständlicherweise kein Leerzeichen finden. Es muß sich dabei nicht zwangsläufig um ein derart langes Wort handeln, denn auch falsche Zeichensetzung, z.B. das fehlende Leerzeichen nach Punkt oder Komme machen daraus programmtechnisch ein Wort.

[DieFliege]

Hallo Perlsau,

vielen Dank für Die Info zu "StringReplace" - Ich hab noch nicht nachgelesen was es genau bedeutet, nur eine Vermutung geäußert (Notiz an mich: Erst lesen, dann vermuten...)

Vor der Abfrage, ob "zwPos > 0" ist, kam die Meldung "Keine Rückmeldung", nun erscheint diese nicht mehr - Dies meinte ich


Danke für Deinen weiteren Hinweis, ich denke gerade drüber nach.

LG Micha

[Perlsau]

Zitat von DieFliege:

Hallo Perlsau, vielen Dank für Die Info zu "StringReplace" - Ich hab noch nicht nachgelesen was es genau bedeutet, nur eine Vermutung geäußert (Notiz an mich: Erst lesen, dann vermuten...)

Das ist eine höchst brauchbare Notiz

Zitat von DieFliege:

Vor der Abfrage, ob "zwPos > 0" ist, kam die Meldung "Keine Rückmeldung", nun erscheint diese nicht mehr - Dies meinte ich

Selbstverständlich wird dieser Fehler nicht mehr erzeugt, nachdem du die Fehlerquelle beseitigt hast. Verstehst du denn auch, weshalb diese Fehlermeldung nun nicht mehr erscheint? Ich hab da so meine Zweifel