DBGrid Lazarus

0

Witam,

Z góry przepraszam jeśli to zły dział, ale składnia wydaje się podobna. Do tej pory posługiwałem się Delphim, przyszło mi się z mierzyć z problemem z bazami FoxPro DBF i tu Delphi zawiódł, I dlatego Lazarus. Mam zaczytane dane z 4 baz do 4 różnych DBGridów i chciałbym odczytać po kolei każdą komórkę podając numery komórki i wiersza.

Prawdopodobnie banalne, ale długo szukałem w googlu i nic, więc prosze o pomoc wszystkich chętnych.

Z góry thx :)

0

o coś takiego chodzi:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i, j: Integer;
begin
  sl:=TStringList.Create;
  sl.Clear;
  try
    datasource1.DataSet.Active:=True;
    datasource1.DataSet.First;
    for i:=0 to datasource1.DataSet.RecordCount-1 do
    begin
      for j:=0 to datasource1.DataSet.FieldCount-1 do
      sl.Add('wiersz: '+IntToStr(i)+#09#09+'kolumna: '+IntToStr(j)+#09#09+'wartość: '+
               AnsiToUTF8(datasource1.DataSet.Fields[j].AsString));
      datasource1.DataSet.Next;
    end;
    sl.SaveToFile('C:\dane.txt');
  finally
    sl.Free;
    datasource1.DataSet.Active:=False;
  end;
  ShowMessage('OK');
end; 

?

pozdrawiam
paweld

1 użytkowników online, w tym zalogowanych: 0, gości: 1