AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Erhalte vom Programm "Keine Rückmeldung" - Speicherüberlauf?
Thema durchsuchen
Ansicht
Themen-Optionen

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

Ein Thema von DieFliege · begonnen am 10. Nov 2015 · letzter Beitrag vom 11. Nov 2015
Antwort Antwort
DieFliege

Registriert seit: 6. Aug 2013
57 Beiträge
 
Delphi XE4 Professional
 
#1

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

  Alt 10. Nov 2015, 20:07
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

Geändert von DieFliege (10. Nov 2015 um 20:16 Uhr) Grund: Tppifhleer etnfrnert
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#2

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

  Alt 10. Nov 2015, 20:14
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.

Geändert von Perlsau (10. Nov 2015 um 20:21 Uhr)
  Mit Zitat antworten Zitat
DieFliege

Registriert seit: 6. Aug 2013
57 Beiträge
 
Delphi XE4 Professional
 
#3

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

  Alt 10. Nov 2015, 20:23
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

Geändert von DieFliege (10. Nov 2015 um 20:31 Uhr)
  Mit Zitat antworten Zitat
Perlsau
(Gast)

n/a Beiträge
 
#4

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

  Alt 10. Nov 2015, 20:50
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

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
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz