Meine funktion funktioniert wenn ich im aufrufen expliziert nochmal einen char deklariere
var pk := ','
und im aufruf dann
wert := changePK(pk , wert);
sage... aber wenn ich es so versuche
wert := changePK(',' , wert);
kommt folgender fehler
Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen[/DELPHI]
Die funktion ändert . in , und , in .,
Delphi-Quellcode:
function changePK(var change_pk_char: char; var pk_string: string): string;
var i: integer;
begin
if change_pk_char = ',' then
begin
for i:=1 to length(pk_string) do
if pk_string[i]=',' then pk_string[i]:='.';
end
else if change_pk_char = '.' then
begin
for i:=1 to length(pk_string) do
if pk_string[i]='.' then pk_string[i]:=',';
end;
result := pk_string;
end;
wert ist bei mir in meinem programm auch ein
var wert: string;