Código Delphi [-] var frase:string; mensaje:array[0...255] of char; begin frase:='el numero total de registros es ' +inttostr(table1.recordcount)+' registros'; strpcopy(mensaje,frase); Application.MessageBox(mensaje,'AVISO',MB_OK); end;
var frase:string; mensaje:array[0...255] of char; begin frase:='el numero total de registros es ' +inttostr(table1.recordcount)+' registros'; strpcopy(mensaje,frase); Application.MessageBox(mensaje,'AVISO',MB_OK); end;