Ich muss die herren darauf hinweisen das Pos 0 zurückgibt wenn das gesucht nicht gefunden wurde
Zitat:
Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.
also muss es so aussehen
Delphi-Quellcode:
if Pos(',', Edit1.Text) = 0 then
Edit1.Text := Edit1.Text + ',';
Thorben ;D