Delphi,Access...

[iam_xor]

учить матчасть!

Я все понимаю...книгу скачал,буду потехоньку изучать...у мя и так всех этих книг тьма тьмуща...Может со мной и не охото возицо...но дело в том что время ограниченно...мне так сказать нужно либо пройти мего курс бысторого обучения по связке дельфи и ацес...либо дальше помогать...поэтому и говорил что я в ваших руках...

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

хмм....ни кто не поможет?

procedure TForm1.Button8Click(Sender: TObject);
begin
  With ADOTable1 do
 begin
 Open;
 First;
 Edit;
 FieldByName('imya').AsString :=Label1.Caption;


Post;

вот этот код надо как то привратить вот в этот

begin
 stringGrid1.RowCount := 0;


    FileAttrs := FileAttrs + faAnyFile;

  with stringGrid1 do
  begin
    RowCount := 1;
    dir:=  Label1.Caption;
     if FindFirst( dir+'\*.txt',  FileAttrs, sr) =0

       then

    begin
      repeat
        if (sr.Attr and FileAttrs) = sr.Attr then
        begin
        RowCount := RowCount + 1;
        Cells[0,RowCount-1] := sr.name;
        Cells[1,RowCount-1] := IntToStr(sr.size);
         Cells[2,RowCount-1] := IntToStr(sr.time);
         Cells[3,RowCount-1] := Label1.Caption +sr.name;
        end;
      until FindNext(sr) <> 0;
      FindClose(sr);
      end;

Т.е. тоже сделать цикл...чтоб данные записывались не в StringGrid1 а сразу непосредственно в БД(Access).