Efectivamente Neftali tienes razon
Con respecto a este tema comentare lo sigiente:
Martin no estaba usando base de datos y yo le recomende que lo hiciera
Luego le explique como hacer para trabajar con tablas y grids para que la informacion se viera reflejada.
Seguidamente agregue un par de eventos para el manejo del alias de la base: Este crea el alias o lo modifica si hace falta ademas configura la sesion
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var
MyList: TStringList;
Lista:TStringList;
begin
Lista:= TStringList.Create;
Session1.GetAliasNames(Lista);
Session1.Active:=False;
Database1.Connected:=False;
MyList := TStringList.Create;
with MyList do
begin
Add('DEFAULT DRIVER=PARADOX');
Add('ENABLE BCD=FALSE');
Add('PATH='+ExtractFilePath(Application.ExeName));
end;
IF AnsiContainsStr(Lista.GetText, 'CUENTAS') then
begin
try
Form1.Session1.ModifyAlias('CUENTAS', MyList);
Form1.Session1.SaveConfigFile;
except
end;
end else
begin
try
Form1.Session1.AddAlias('CUENTAS', 'STANDARD', MyList);
except
end;
MyList.Free;
end;
IF not DirectoryExists(ExtractFilePath(Application.ExeName)+'PRIV') then
begin
CreateDir(ExtractFilePath(Application.ExeName)+'PRIV');
Session1.PrivateDir := ExtractFilePath(Application.ExeName)+'PRIV';
end;
IF not DirectoryExists(ExtractFilePath(Application.ExeName) +'NET') then
begin
CreateDir(ExtractFilePath(Application.ExeName) +'NET');
end;
try
Session1.NetFileDir := ExtractFilePath(Application.ExeName) + 'NET';
except
end;
Session1.Active:=True;
Database1.Connected:=True;
end;
Y la insercion de registros en la tabla: desde el form2
Código Delphi
[-]
procedure TForm2.Button2Click(Sender: TObject);
var
FECHANAC:TDateTime;
EDAD:Integer;
begin
FORM1.TABLE1.Open;
FORM1.TABLE1.Insert;
FORM1.Table1.FieldByName('NOMBRE').Text:=Trim(Edit1.Text)+', '+TRIM(Edit2.Text);
FORM1.Table1.FieldByName('TELEFONO').aSINTEGER:=StrToInt(Edit3.Text);
FORM1.Table1.FieldByName('SALDO').AsFloat:=StrTofLOAT(Edit4.Text);
FORM1.Table1.FieldByName('LOCALIDAD').Text:=Edit5.Text;
FORM1.Table1.FieldByName('EMAIL').Text:=Edit6.Text;
FECHANAC:=StrToDate(Edit7.Text+'/'+Edit8.Text+'/'+Edit9.Text);
EDAD:=YearsBetween(FECHANAC,Now);
FORM1.Table1.FieldByName('EDAD').ASINTEGER:=EDAD;
FORM1.Table1.Post;
FORM1.Table1.Active:=False;
FORM1.Table1.Active:=True;
end;
Espero haber ilustrado un poco la situcion
Saludos