Bu kodla ilgili bana yardımcı olabilirmisiniz?

[tuana34]

Aşağıdaki kodu anlayamıyorum bana açıklayabilirmisiniz aceba???

procedure TFrmMain.FormShow(Sender: TObject);
begin
_ConnectSQL(ADOConnection1);
StatusBar1.Panels[0].Text := 'Connected: '+ sysServerName;

Panel1.Visible := not (ReadFromRegistry('PROGRAMIN ADI','Panel1') = '0');
KriterLOAD(Panel1,'PROGRAMIN ADI');

SQLOrder := 'Name, Surname';
SQLOrderTYPE := 'ASC';
RefreshList;

if ReadFromRegistry(''PROGRAMIN ADI'', 'Personnel_ID') <> '' then
begin
ADOQuery1.Locate('Personnel_ID', StrToInt(ReadFromRegistry(''PROGRAMIN ADI'', 'Personnel_ID')), []);
end;
Application.ProcessMessages;

[tuana34]

Kimse yokmu arkadaşlar???

[tuna]

Anlayamadığın yeri neresi ve ne yapmak istediğini yazmamışsın.

[aslangeri]

s.a.
eleman burda kendi yaptığı prosedür ve fonksiyonları kullanmış.
onların ne iş yaptıklarını bilemeyiz.
ama metod isimlerinden belki bişeyler çıkar. mesela "ReadFromRegistry" registry den bişeyler okuyor olabilir.

[Ertugrul]

Kitap veya makale okumadan program yapmak istiyorum ve asagidaki kodu buldum ama anlamiyorum. Bana kitap onerir misiniz acaba?????

procedure TFrmMain.FormShow(Sender: TObject);
begin.....

Tercume icin daha sonra tesekkur edebilirsin.

[aslangeri]