CSV ve DBStringGrid

[cengaver]

Şöyle bir şey var mı?

Öncelikle DBGrid gibi bir şeyden bahsetmiyorum arkadaşlar

Kullanıcıya bir TStringGrid vereceğim, (satırı ve sütunu sınırlı bir şey olacak). Kullanıcı bu gridi dolduracak ve sonuçta csv yapısında bir veri üretmiş olacak. Ben de bu veriyi alıp veritabanındaki tek bir text veya blob field'de saklayacağım...

Bu tarz bir şey var mı? varsa adı sanı nedir?

Şimdiden teşekkürler.

[Senat0r]

Bir zamanlar lazım olduğunda txt dosyasına kayıt edip okutuyordum işinize yararsa kodları paylaşıyorum.

Kod: Tümünü seç

procedure Kayit(str: TStringGrid);
var
List: TStringList;
  i, j: Integer;
begin
List:=TStringList.Create;
with str do
  for i:=0 to RowCount-1 do
  for j:=0 to  ColCount-1 do
    List.Add(Cells[j, i]);
List.SaveToFile('C:\Users\Ahendil\Desktop\temp.txt');
end;

procedure Goster(Str: TStringGrid);
var List: TStringList;
  i, j: Integer;
begin
List:=TStringList.Create;
List.LoadFromFile('C:\Users\Ahendil\Desktop\temp.txt');
with Str do
  for i:=0 to RowCount-1 do
  for j:=0 to  ColCount-1 do
    Cells[j, i]:=List[i*ColCount+j];
end;

procedure TForm1.AcClick(Sender: TObject);
begin
Goster(Stringgrid1);
end;
procedure TForm1.KaydetClick(Sender: TObject);
begin
Kayit(stringgrid1) ;
end;