ActiveDelphi

[visitante]

Colegas,
Fiz um sisteminha de cadastro bem simples com Delphi e Paradox.
Está rodando e cadastrando corretamente, mas tive um problema:
Após alguns registros inseridos, o Windows 98 SE que uso aqui deu um pau e travou. Fui obrigado a reiniciar e quando reiniciei, abri o sisteminha e os dados não estavam mais lá. Apenas os dois registros que existiam antes de eu começar a usá-lo efetivamente.
Existe alguma rotina que SALVE os dados pra que num possível travamento ele apenas perca o que eu esteja cadastrando e não o que eu tenha cadastrado desde que abri o software?

Grato.

[an.der.son]

Adicione [b]BDE[/b] na uses...

coloque no after post
[code]
FlushTables(Self);
RefreshTables(Self);
[/code]

Declare as funcoes
[code]
procedure Tdm.RefreshTables(Sender : TObject);
var
i : Integer;
begin
for i := 0 to Self.ComponentCount-1 do
begin
if Components[i] is TTable then
if (Components[i] as TTable).Active then
(Components[i] as TTable).Refresh;
end;
end;

procedure Tdm.FlushTables(Sender : TObject);
var
i : Integer;
begin
for i := 0 to Self.ComponentCount-1 do
begin
if Components[i] is TTable then
if (Components[i] as TTable).Active then
begin
(Components[i] as TTable).FlushBuffers;
DbiSaveChanges((Components[i] as TTable).Handle);
end;
end;
end;
[/code]

Isto resolveu a maior parte dos meus problemas.

Abraços
_________________
Estou de volta!!!

[visitante]

[img]http://www.becher.com.br/www/pscreen.jpg [/img]

Taí um print screen dos erros que deu.
Esqueci de falar, sou leigo. Se bobear, não entendi o que é declrar uma function.
Apenas coloquei no codigo antes das procedures e depois do ($R .dfm).

Abraços.