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

[psd-sign]

Hi

Ich habe in einem Formular ein TEDIT Feld. Hier gibt nun der Anwender einen Text ein.

- Wie kann ich feststellen, ob der Anwender ein Komma eingegeben hat?
- Wie teile ich, wenn der Text ein Komma enthält, den Text, der von dem Komma begrenzt wird?

[Zacherl]

Guck dir mal TMaskEdit an. Damit sollte das funktionieren ..

[DeddyH]

Hallo und Willkommen in der DP

zur ersten Frage: Du kannst entweder während der Eingabe prüfen, ob es ein Komma ist oder anschließend mit Pos() abfragen, ob ein Komma enthalten ist. Die zweite Frage habe ich leider nicht verstanden.

[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;

[psd-sign]

Genial ... Danke für die schnelle Antwort