Delphi Label mit hartem Bruch

Thema durchsuchen

Ansicht

Themen-Optionen

Label mit hartem Bruch

Ein Thema von nailor · begonnen am 10. Sep 2003 · letzter Beitrag vom 10. Sep 2003

Vorheriger Beitrag

Nächster Beitrag

Ronny Grabo

Registriert seit: 16. Mai 2003
41 Beiträge

Re: Label mit hartem Bruch

10. Sep 2003, 20:20

Hallo,

folgender Vorschlag:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Label1Click(Sender: TObject);

var tmp0:String;

    tmpint:integer;

begin

//String zuweisen

tmp0:='Das ist mein Label';

{Stringlänge von tmp0 ermitteln und durch zwei rechnen

anschließend runden und Ergebnis an tmpint als Integer übergeben.} 

tmpint:=round(strlen(PChar(tmp0))/2);

//chr(13) an errechneter Position einfügen

insert(chr(13),tmp0,tmpint);

//String mit Zeilenumbruch sichtbar machen

label1.Caption:=tmp0;

end;