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]