delphi test <>

Delphi code posted
created at 20 Nov 13:03

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
 
procedure DreamFormEventsAfterLoad(Sender: TObject);
begin
  if Self.GetFormParamCount < > 3 then
   ShowMessage('Dream Debug: Nepareizs parametru skaits!'+sLineBreak+
   +Format('Gaidīts %d bet saņēmts %d',[3, Self.GetFormParamCount]))
  else
  begin
    datasource1.DataSet := self.GetFormParamByIndex(0);
    self.SC_RadioGroup1.ItemIndex := self.GetFormParamByIndex(1);
    self.SC_RadioGroup1.Caption := self.GetFormParamByIndex(2);
  end;
end;
463 Bytes in 2 ms with coderay