TEDIT.TXT ... ist ein Komma eingegeben ... oder auch nicht?

[nahpets]

Hallo,

Willkommen im Club der Delphianer.

Meinst Du das so?

Delphi-Quellcode:

var
  iPos  : Integer;
  sVor  : String;
  sNach : String;
begin
  iPos := Pos(',',TEdit.Text);
  if iPos > 0 then begin
    sVor  := Copy(TEdit.Text,1,iPos - 1);
    sNach := Copy(TEdit.Text,iPos + 1,Length(TEdit.Text));
    ShowMessage('Text vor dem Komma: ' + sVor + #13 + 'Text nach dem Komma: ' + sNach);
  end;
end;