Forum: Sonstige Fragen zu Delphi
by DieFliege,
10. Nov 2015
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 :-)
Forum: Sonstige Fragen zu Delphi
by DieFliege,
10. Nov 2015
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...
Forum: Sonstige Fragen zu Delphi
by DieFliege,
10. Nov 2015
Memo2.Text := WrapText(StringReplace(Memo1.Text,#13#10,' ',)
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:
Forum: Sonstige Fragen zu Delphi
by DieFliege,
10. Nov 2015
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 :-)
Forum: Sonstige Fragen zu Delphi
by DieFliege,
10. Nov 2015
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,...
Forum: Sonstige Fragen zu Delphi
by DieFliege,
10. Nov 2015
Hallo,
vielen Dank für Eure Rückmeldungen. Hier nun der Code.
function Textumbruch(text: String; textbreite: Integer): String;
var
textlaenge : Integer;
zeilenlaenge : Integer;
zwPos : Integer;
Forum: Sonstige Fragen zu Delphi
by DieFliege,
10. Nov 2015
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...