Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: ListBox Einträge trennen

  Alt 15. Nov 2007, 18:13
Hi,

für Edit1 eine Möglichkeit:
Delphi-Quellcode:
uses
  StrUtils;
...

var
  ItemText: AnsiString;
  Start, Ende: integer;
begin
  ItemText:= 'Name: xyz Name2: abc';
  Start:= Pos(': ', ItemText)+ 2;
  Ende:= PosEx(' ', ItemText, Start)- Start;
  Edit1.Text:= Copy(ItemText, Start, Ende);
Wie du den Text in das 2. Feld kopierst, bekommst du dann bestimmt selber raus.
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat