Eigene Funktion erstellen

[ichbins]

Eine Funktion ist soetwas wie eine erweiterte Prozedur, die einen Wert zurückgeben kann, so wie z.B. inttostr, das sieht inetwa so aus:

Delphi-Quellcode:

function inttostr(i:integer):string; //Funktion mit Namen inttostr, die als Parameter einen Integerwert hat und einen String zurückgibt
begin
  str(i,result); 
end;

diese Funktion inttostr kannst du dann ja so aufrufen:

Delphi-Quellcode:

var
  i:integer;
begin
  s:=inttostr(i);

wobei s dann den von inttostr zurückgelieferten String enthält.

Eine Textprüffunktion, die ggf. vorhandene Umlaute in einzelne Buchstaben verwandelt sieht dann so aus:

Delphi-Quellcode:

function texttest(text:string):string;
var
  i:integer;
begin
  result:='';  //Ergebniss der Funktion auf '' setzen
  for i:=1 to length(text) do
    case text[i] of
      'ä': result:=result+'ae';
      'ö': result:=result+'oe';
      'ü': result:=result+'ue';
      'Ä': result:=result+'AE';
      'Ö': result:=result+'OE';
      'Ü': result:=result+'UE';
      'ß': result:=result+'ss';
    end else
      result:=result+text[i];
end;

und wird so aufgerufen:

Delphi-Quellcode:

var
  text:string;
begin
  text:='äößüabc'
  text:=texttest(text);