Código Delphi
[-]
procedure TPalabras.BitBtn4Click(Sender: TObject); begin
BitBtn2.Enabled:=True; BitBtn1.Enabled:=True; Button2.Click;
if ClientDataSet1.State in [dsInsert, dsEdit] then
begin
if DataSource1.DataSet.FieldByName('WORD').asString='' then
begin
DataSource1.DataSet.Cancel;
EsAlta:=False;
Exit;
end else
begin
If esAlta then PasaUno:=True;
ClientDataSet1.Post;
ClientDataSet1.ApplyUpdates(-1);
REVISA_GEN(IBQuery1, PasaUno, Label1);
end;
end;
EsAlta:=False; PasaUno:=False;
BitBtn2.Enabled:=True;
end;
Por otra parte el campo (llamado Notes) se define con el character set ISO8859_I. Guarda correctamente.
Eso es todo lo que puedo aportar.
Saludos. Bulc