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

[DieFliege]

Hallo Gemeinde,

ich habe wieder mal ein Problem(chen) und hoffe auf Hilfe.

Zur Ausgangssituation:
Ich habe einen String mit bis zu 1000 Zeichen, den ich in einer Funktion bearbeiten möchte. Diese Funktion dient dazu den Text auf eine bestimmte Breite zu bringen (60 Zeichen). Weiterhin habe ich meiner Funktion beigebracht, dass der Test um 15 Zeichen eingerückt werden soll. Meine Funktion setzt auch brav den Zeilenumbruch (#13#10) an letzten Leerzeichen bevor die Zeilenbreite von 60 erreicht ist und rückt den Text ein - Zeile für Zeile. Anschließend übernehme ich den nun "neuen" String mit den Zeilenumbrüchen in die Zwischenablage.

Zum Problem:
Wenn ich nun eine Weile an meinen PC arbeite und einige Programme offen habe, erhalte ich irgendwann, wenn ich meine Funktion nutze, die Meldung des Programms (in dem meine Funktion agiert): "Keine Rückmeldung" Ich kann dann nur noch das Programm schließen und neu starten. Aber auch dann bekomme ich immer wieder diese Meldung. Starte ich aber meinen Rechner neu, ist das Problem erst mal wieder verschoben.

Nun habe ich mich etwas belesen und dabei festgestellt "Text := Text + WeitererText" sehr schnell den Arbeitsspeicher füllen kann. Da ich eine WHILE-Schleife verwende, kann es je nach Textlänge passieren, dass diese Variable vielfach im Speicher abgelegt ist. Abhilfe hier soll der StringBuilder sein, der den String innerhalb einer Variable zusammen setzt und damit den (vermutlichen Speicherüberlauf) verhindert. Dies ist jedoch nicht der Fall.

Darauf hin habe ich mir um der Sache auf den Grund zu kommen ein kleines Progrämmchen geschrieben, in dem ich in einer WHILE-Schleife einen Text X-mal hinter einen bestehenden anhänge, auf das Einrücken und Übernehmen des Strings in die Zwischenablage habe ich dabei noch verzichtet - Auch hier bekomme ich "Keine Rückmeldung". Dieses Progrämmchen habe ich einmal mit StringBuilder und einmal ohne, also "text := test + text" getestet.

Meine Frage nun:
Was genau habe ich übersehen, bzw. wie genau kann ich dieses vermutliche Speicherproblem umgehen? Wenn ich mich nicht verlesen habe ist eine Deklarierung der Variable mit "String" für 1000 Zeichen ausreichend, auch wenn ich noch einen Zeilenumbruch und den 15 Stellen Zeichenvorschub berücksichtige - oder?

Hat jemand einen Tipp, wie ich das Problem beheben kann? Gerne kann ich einmal ein kurzes Beispiel der Funktion hier posten - sobald ich wieder Zuhause bin und an meinen Quelltext komme. Würde mich über eine Rückmeldung freuen.

Liebe Grüße
Micha

Ps.: Verwende Delphi XE-XE4. Der Titel ist leider nicht sehr aussagekräftig, aber mir ist gerade nix besseres eingefallen

[Bambini]

Erste Vermutung ist, die while Schleife ist endlos.
Da stimmt evtl etwas mit der Abbruchbedingung nicht. Ein Code Beispiel wir da bestimmt helfen.

[Der schöne Günther]

Zitat von DieFliege:

Darauf hin habe ich mir um der Sache auf den Grund zu kommen ein kleines Progrämmchen geschrieben

Her damit!

[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?

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

[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?