Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**bitsetter**

Hi,

so geht es auch:

Delphi-Quellcode:

			uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);

var

   s: String;

begin

  s:= 'Schornsteinfeger';

  caption:= RightStr(s, Length(s)- 6);

end;

bitsetter Registriert seit: 17. Jan 2007 1.169 Beiträge Turbo Delphi für Win32	#4 Re: String kürzen 7. Mär 2007, 23:06 Hi, so geht es auch: markieren Delphi-Quellcode: uses StrUtils; procedure TForm1.Button1Click(Sender: TObject); var s: String; begin s:= 'Schornsteinfeger'; caption:= RightStr(s, Length(s)- 6); end; Gruß bitsetter "Viele Wege führen nach Rom" Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
	Zitat

Einzelnen Beitrag anzeigen

Re: String kürzen