Edit Text nach : anderer Variablen zuweisen

[bitsetter]

Hi,
so etwa?

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var
  s, Text: String;
  ipos: integer;
begin
  Text:= Edit1.Text;
  ipos:= pos(':', Text);
  if ipos > 0 then
  begin
    s := Copy(Text, 1, ipos- 1);
    caption:= s;
  end;
end;