Verwenden eines Default Wert in einer Procedure??????

[XaRidA_THEONLY]

Hey Leute...


Und wiedermal habe ich ein kleines Problem.

Ich habe mir folgende Prozedur erstellt:

Code:

function TDialogAboutForm.SetMessageText( MessageText : String; RowNo : Integer; DebugMode : Boolean ) : String;
////////////////////////////////////////////////////////////////////////////////
//
// SetMessageText
//
////////////////////////////////////////////////////////////////////////////////
begin
  If ( DebugMode ) Then CodeSite.EnterMethod( 'TDialogSplashForm.TSplashForm' );

  // Init
  ResultStr := 'OK';

  CodeSite.SendMsg( 'Parameter: ' + MessageText );


  case RowNo of
    1: VersionRzLabel.Caption := MessageText;
    2: SplashRzLabel.Caption  := MessageText;
  else
    SplashRzLabel.Caption  := MessageText;
  end;



  // Set result
  Application.ProcessMessages;
  CodeSite.SendNote( 'Result: ' + ResultStr );
  Result := ResultStr;

  If ( DebugMode ) Then CodeSite.ExitMethod( 'TDialogSplashForm.TSplashForm' );
end;

und diese mit dem Befehl

Code:

SetMessageText( PChar( SetMessageTextEdit.Text ),RowNoSpinEdit.IntValue);

ausgeführt.

Nun mein Problem:
ich möchte, dass die Funktion ohne die Parametereingabe

Code:

RowNoSpinEdit.IntValue

ausliesst welches meiner Labelfelder bearbeitet werden soll, also anhand eines Default Wertes, aber wie mache ich das????????

Wäre echt froh um Hilfe...

Thanks XaRidA :angel:

[mirage228]

Hi,

ab Delphi 4 können Funktionen und Prozeduren Default-Parameter bekommen:

Delphi-Quellcode:

procedure MeineProzedur(const Parameter1: String; Optional: Integer = 32);
begin
  // mache etwas
end;

Dabei sind folgende Aufrufe gültig:

Delphi-Quellcode:

MeineProzedur('irgendein String'); // Optional ist 32
MeineProzedur('irgendein String', 44); // Optional ist 44

Ich hoffe das hilft dir.

mfG
mirage228

[XaRidA_THEONLY]

Das häd gfunzt.

Merci...


XaRidA :angel: