Maaf ane newbie mau tanya?
Save berhasil dalam bentuk memo di database access
Dengan var dijadikan variabel umum

var

 FormPreprocessing: TFormPreprocessing;

 Total : String;



Procedure TFormPreprocessing.Save;

var

 i,j: integer;

begin

 Total:='';

 for i := 0 to StringGrid1.ColCount-1 do

 begin

 for j := 0 to StringGrid1.RowCount-1 do

 begin

 StringGrid1.Cells[j,i];

 Total:=total+StringGrid1.Cells[j,i];

 end;

 end;

end;



procedure TFormPreprocessing.BitBtn6Click(Sender: TObject);

begin

 Save;

 with Q_Preprocessing do

 begin

 SQL.Clear;

 SQL.Add('select*from TPreprocessing where Id_Pola='''+E_Pola.Text+'''');

 open;

 if eof then

 begin

 Append;

 FieldByName('Id_Pola').Value:=E_Pola.Text;

 FieldByName('Id_Tanaman').Value:=ComboBox1.Text;

 FieldByName('File_Gambar').Value:=E_Lokasi.Text;

 FieldByName('Vektor').Value:=Total;

 post;

 Q_Preprocessing.SQL.Clear;

 Q_Preprocessing.SQL.Add('select * from TPreprocessing');

 Q_Preprocessing.Active:=True;

 Q_Preprocessing.Open;

 Ds_Preprocessing.DataSet:=Q_Preprocessing;

 DBGrid1.DataSource:=Ds_Preprocessing;

 E_Pola.SetFocus;

 ShowMessage('Data Tersimpan');

 end

 end;

end;

Sedangkan loadnya tidak berhasil memasukan file memo tadi ke dalam stringgrid
ada yg bs kasi solusi?
saya pakai kode ini

Procedure TFormPreprocessing.Load;

var

 i,j: integer;

begin

 for i := 0 to StringGrid1.ColCount-1 do

 begin

 for j := 0 to StringGrid1.RowCount-1 do

 begin

 StringGrid1.Cells[j,i]:=Total;

 end;

 end;

end;



procedure TFormPreprocessing.DBGrid1CellClick(Column: TColumn);

begin

Load;

with DBGrid1.DataSource.DataSet do

 begin

 if Eof then

 ShowMessage('Data Kosong')

 else

 begin

 E_Pola.Text:=Fieldbyname('Id_Pola').AsString;

 ComboBox1.Text:=Fieldbyname('Id_Tanaman').AsString;

 E_Lokasi.Text:=Fieldbyname('File_Gambar').AsString;

 Total:=Fieldbyname('Vektor').AsString;

 end;

 end;

end;