|
procedure TForm1.Button1Click(Sender: TObject);
begin
SampleTable.Append;
SampleTable.FieldValues['ALPHANUMERIC'] := Edit1.text;
SampleTable.FieldValues['INTEGER'] := StrToInt(Edit2.text);
SampleTable.Post;
end;
ЕЖ
ты вот это имел ввиду???...
вот сделал выбор дериктории правдо не так как ты написал...потому что не понял я некоторые детали...Вот а еще конежно хотелось бы сделать выбор дерикторий и из сетевого окружения.
вот обновленная версия kilroystudio.narod.ru/ado.rar
Последний раз редактировалось kilroy; 08.02.2006 в 17:16.
|