Jak ustalić nieobowiązkowe argumenty dla procedury?

CyberWolf

Użytkownik
Dołączył
Marzec 6, 2010
Posty
3
Witam!!
Zastanawiam się jak napisać procedurę która przyjmuje np 9 parametrów (w tym jeden nieobowiązkowy)

fikcyjny przykład ilustrujący o co mi chodzi

Kod:
procedure ptest(smtpsrv,smtplog,smtppass,mailod,maildo,tekst:string;bzalacznik:boolean; [zalacznik:string]);
begin
writeln(smtpsrv);
writeln(smtplog);
writeln(smtppass);
writeln(mailod);
writeln(maildo);
writeln(tekst);
if bzalacznik then writeln(zalacznik);
end;

begin
  ptest('poczta.o2.pl','haker','test','[email protected]','[email protected]','wiadomosc testowa',false);
readln;
end.

To co w nawiasie kwadratowym to ta nie obowiązkowa zmienna.

próba kompilacji takiego kodu kończy się błędem w Delphi 7
Kod:
[Error] Test.dpr(8): Identifier expected but '[' found
[Error] Test.dpr(8): ')' expected but ']' found

Jak powinien wyglądać poprawiony kod, bo gdybym pominął te nawiasy [ ] to wprowadzenie tylu argumentów kończy się komunikatem "too few arguments"??
 
Do góry Bottom