procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button = TNavigateBtn(nbInsert) then begin
OpenDialog1.Execute;
AdoTable1.FieldByName('slike').AsString:=OpenDialog1.FileName;
end;
if Button = TNavigateBtn(nbPost) then begin
Image1.Picture.LoadFromFile(ADOTable1.fieldbyname('slike').Text);
end;
end;
procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
If ADOTable1.fieldbyname('slike').Text<>''then begin
Image1.Picture.LoadFromFile(ADOTable1.fieldbyname('slike').Text);
end;
end;
naprimer.
Sto puta sam ti SRPSKI rekao:
ono što jednom crack-uješ,
ne možeš više da patch-uješ!