typenloser parameter

[Sharky]

Hai mumu,

arbeite doch mit einer überladenen Funktion:

Delphi-Quellcode:

function Write(para1 , para2 , para3: string; typ: integer; right_value : String): boolean; Overload;
begin
  //
end;

function Write(para1 , para2 , para3: string; typ: integer; right_value : Integer): boolean; Overload;
begin
  //
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Write('test', 'test', 'test', 1, 'blubb');
  Write('test', 'test', 'test', 1, 3);
end;