Funktion für kommastelle

[pacman1986]

benutz true oder false als rückgabewerte wäre das nicht einfacher ? achso und deine funktion überprüft nur den letzten buchstaben

Delphi-Quellcode:

function kommawert(eingabe : string) : boolean;
var
i : integer;
begin
  result := false;                            //Auf false setzen kein komma vorhanden
  for i:=1 to length(eingabe) do begin
    if eingabe[i]=',' then result := true;    //true wenn eins kommt
  end;
end;

da bei dir der then und else teil vorhanden ist wird praktisch das ergebniss des letzten buchstabens übergeben.

mfg
Christian



[Edit]funktion hinzugefügt[/Edit]