'.' mit ',' ersetzen funktion unkompatible typen char

[sneumann]

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;

[DeddyH]

Du weißt, was Var-Parameter sind und wozu man die benutzt?

[sneumann]

Zitat von DeddyH:

Du weißt, was Var-Parameter sind und wozu man die benutzt?

hab jetzt mal den char ohne var gemacht jetzt compiliert er auch

[DeddyH]

Und wieso nicht auch den String? Oder brauchst Du das doppelt?

[hoika]

Hallo,

ich hätte StringReplace benutzt ...


Heiko

[DeddyH]

Ich auch, aber es spricht ja prinzipiell nichts gegen eine eigene Routine. Nur sollte man eben wissen, wie die Parameter zu übergeben sind.