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

[DieFliege]

Hallo,

vielen Dank für Eure Rückmeldungen. Hier nun der Code.

Delphi-Quellcode:

function Textumbruch(text: String; textbreite: Integer): String;
var
  textlaenge    : Integer;
  zeilenlaenge  : Integer;
  zwPos         : Integer;
  zlPos         : Integer;
  zu            : String;
  orgText       : String;
  kopText       : String;
  ausgabetext   : String;

begin
  zu           := #13#10;
  zwPos        := 0;
  zlPos        := 0;
  zeilenlaenge := 0;
  textlaenge   := Length(text);
  orgText      := text;
  kopText      := text;

  while textlaenge > textbreite do
  begin
    zwPos := Pos(' ', kopText);
    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;

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

  ausgabetext := ausgabetext + orgText;
  Result := ausgabetext;
end;

Wie gesagt, das Programm funktioniert ja, nur wenn Windows ne Weile gelaufen ist und der Speicher vermutlich voll ist, dann kommt diese Meldung. Starte ich dann Rechner neu, kann ich wieder 2-4 Stunden damit arbeiten.

LG Micha

(Hier mal das komplette Programm: zeilenumbruch.zip)

[Der schöne Günther]

Ich habe den Algorithmus nicht durchschaut, aber er terminiert schon mal nicht wenn eine Zeile kein Leerzeichen vor der gewollten Textbreite hat. Er hängt dann an ausgabetext nur immer weiter Zeilenumbrüche an bis der Speicher voll ist.

PS: WrapText(..) kennst du, oder?

[DieFliege]

Hallo Günther,

vielen Dank für Deine Rückmeldung.

Du hast Recht, wenn kein Leerzeichen vor der Textbreite kommt, brummt das Programm auf. Da ich aber weiß, dass es keine Zeichenkombination geben wird, die länger als 50 oder gar 60 Zeichen geben wird, habe ich das mal außer acht gelassen.

"WrapText" habe ich gerade kennen gelernt und beschäftige mich nun damit.

Ich erkläre mal kurz, was ich mir bei der Funktion gedacht habe:
Ich nutze eine WHILE-Schleife so lange, bis der Rest des Strings kleiner ist als die Textbreite. Dabei nutze ich 2 Strings mit anfänglich identischen Inhalt. Zunächst suche ich das erste Leerzeichen und übergebe die Position einer Variablen. nun lösche ich den text bis zum ersten Leerzeichen in der Kopie des Kopiestrings und suche nach den nächsten Leerzeichen. Die Position des neuen Leerzeichens kopiere ich zur letzten Position und prüfe ob damit die Textbreite überschritten wird. Wird sich überschritten, nutze ich die Gesamtpositionen aller Leerzeichen dazu, um vom Originaltext den Teil raus zu kopieren und in die Ergebnisstringvarible zu kopieren und lösche dann den kopieren Teil aus dem Originalstring. nun geht das ganze wieder von vorne los, bis der Rest des Kopiestrings kleiner ist als die Textbreite und dann endet die WHILE.

Ich weiss, vermutlich ganz schön kompliziert - zu kompliziert, aber es funktioniert.

Nutze ich nun statt "text := text + mehrtext" den StringBuilder, funktioniert es genauso und brummt bei ausgelastetem Rechner auf.

So, werde nun WrapText" lernen

LG Micha

[DieFliege]

Hallo Perlsau,

vielen Dank für den Hinweis.

Das werde ich sofort mal umsetzen und mich danach (und dem Abendbrot) noch mal melden

LG Micha

[HolgerX]

Ach nochwas:

Statt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo2.Clear;
  memo2.SelLength := 0;
  quelltext  := memo1.Text;
  textbreite := StrToInt(edit1.Text);
  memo2.SelText := Textumbruch(quelltext, textbreite);
end;

kannst Du besser

Delphi-Quellcode:

  Memo2.Text := WrapText(StringReplace(Memo1.Text,#13#10,' ',[rfReplaceAll])
                         ,sLineBreak
                         , [' ']
                         ,StrToInt(edit1.Text));

das Clear / Sellength := 0 und SelText kannst Du dir sparen

Ach ja, das StringReplace habe ich eingebaut, damit die in Memo1 vorhandenen Zeilenumbrüche nicht beim WrapText stören und sauber neu umgebrochen wird.

[Luckie]

Und wo gibt er jetzt bei WrapText seine gewünschte Breite und Einrückung an?

[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

[DieFliege]

Zitat von HolgerX:

Ach nochwas:

Statt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo2.Clear;
  memo2.SelLength := 0;
  quelltext  := memo1.Text;
  textbreite := StrToInt(edit1.Text);
  memo2.SelText := Textumbruch(quelltext, textbreite);
end;

kannst Du besser

Delphi-Quellcode:

  Memo2.Text := WrapText(StringReplace(Memo1.Text,#13#10,' ',[rfReplaceAll])
                         ,sLineBreak
                         , [' ']
                         ,StrToInt(edit1.Text));

das Clear / Sellength := 0 und SelText kannst Du dir sparen

Ach ja, das StringReplace habe ich eingebaut, damit die in Memo1 vorhandenen Zeilenumbrüche nicht beim WrapText stören und sauber neu umgebrochen wird.

Hallo HolgerX,

igit ist das einfach. Nun habe ich mir mal "WrapText" angesehen und auch Deinen Text verstanden.

Vielen Dank allen, die mir auf die Sprünge geholfen haben.

Wünsche Euch eine schöne Woche.

LG Micha


Hallo Perlsau,

Zitat von Perlsau:

Ich hab da so meine Zweifel

Also ich habe das so verstanden, dass ich mit damit Abfrage, ob sich innerhalb meiner Textbreite überhaupt ein Leerzeichen befindet. Die kann aber durch evtl. Formatierungen im Text verhindert werden und damit würde das Programm in eine Endlosschleife gehen und ich irgendwann die Meldung "Keine Rückmeldung" erhalten. Also muss ich nicht nur nach Leerzeichen suchen, sondern auch andere Zeichen berücksichtigen. Richtig?

Danke für Deine Hilfe,
LG Micha

[Perlsau]

Es kommt eben auf die Definition des Wortbegriffes an. Wenn du ein Wort so definierst, daß am Ende jeses Wortes ein Leerzeichen stehen muß, findest du natürlich nicht alle Worte, weil am Ende eines Satzes – zumindest im Deutschen – niemals ein Leerzeichen nach einem Wort steht, sondern gewöhnlich ein Punkt. Du willst aber gar nicht nach Worten suchen, sondern nach sinnvollen Stellen für den Textumbruch. Da ist das Leerzeichen natürlich vollkommen richtig gewählt – vorausgesetzt, daß derjenige, der den Text erfaßt, also getippt hat, sich an die deutsche Zeichensetzung hielt und auf jedes Satzzeichen ein Leerzeichen folgen ließ. Wenn der Text dagegen so aussieht:

Es kommt eben auf die Definition des Wortbegriffes an.Wenn du ein Wort so definierst,daß am Ende jeses Wortes ein Leerzeichen stehen muß,findest du natürlich nicht alle Worte,weil am Ende eines Satzes–zumindest im Deutschen–niemals ein Leerzeichen nach einem Wort steht,sondern gewöhnlich ein Punkt.Du willst aber gar nicht nach Worten suchen,sondern nach sinnvollen Stellen für den Textumbruch.Da ist das Leerzeichen natürlich vollkommen richtig gewählt–vorausgesetzt,daß derjenige,der den Text erfaßt,also getippt hat,sich an die deutsche Zeichensetzung hielt und auf jedes Satzzeichen ein Leerzeichen folgen ließ.

In diesem Fall werden nicht alle Worte korrekt gefunden. Steht dann am Schluß des Textes noch ein Wort, das länger ist als die gewählte Textbreite, z.B.

Rindfleischetikettierungsüberwachungsaufgabenübert ragungsgesetz,
Grundstücksverkehrsgenehmigungszuständigkeitsübert ragungsverordnung,
Verkehrsinfrastrukturfinanzierungsgesellschaftsges etz oder
Vermögenszuordnungszuständigkeitsübertragungsveror dnung,

wird dort auch kein Leerzeichen gefunden und das Wort wird nicht in das zweite Memo übernommen.

Am besten scheint mir – so mache zumindest ich das immer bei komplexeren Aufgaben –, du stellst dir das Problem beim Debuggen bildlich vor oder malst es sogar erstmal genau auf, mit allen Eventualitäten. Bei Debuggen stelle ich mir bei jedem Programmschritt vor, wie die geänderte Variable danach auszusehen hat und schaue dann in den überwachten Ausdrücken nach, ob das erwartete Resultat auch eingetreten ist. Es ist ja letztlich die Aufgabe des Programmierers, nahezu alle denkbaren Eventualitäten abzudecken, um eine nahezu fehlerfreie Software zu garantieren.

Quelle der überlangen Wörter

Leider zerstückelt der Foren-Editor die langen Wörter irgendwie ...

[Perlsau]

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