Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Draos**

Delphi-Quellcode:

			var s     :String;

    i     :Integer;

begin

 s:=edit1.Text;

 repeat

  Delete(s,pos(' ',s),1);

 until pos(' ',s)=0;

 edit2.text:=s;

also sowas eher? Danke so lernt man

Draos Registriert seit: 12. Aug 2008 42 Beiträge Delphi 7 Enterprise	#17 Re: HexToInt 9. Jun 2009, 16:25 markieren Delphi-Quellcode: var s :String; i :Integer; begin s:=edit1.Text; repeat Delete(s,pos(' ',s),1); until pos(' ',s)=0; edit2.text:=s; also sowas eher? Danke so lernt man
	Zitat