Hola a todos, quisiera que me ayuden con este problema, lo que quiero hacer es que desde una Consola me lea un edit de otro form aparte.
El código que uso en mi consola es este:
Código:
try
hkexample:= leCadINI ('World','example','');
begin
if hkexample= '1' then
Pdword(Examen)^:= 456789456;
end;
En ves del valor asignado "456789456" quiero que me lea el valor de un Edit en el form que tengo.
Las activaciones en mi form lo hago de esta manera en un botón
Código:
procedure TForm1.btn1Click(Sender: TObject);
begin
esEntINI('World','example',1);
end;
end.
Y las funciones que tengo son estas:
Código:
//Lee un booleano de un INI
function leBoolINI (clave, cadena : string; defecto : boolean) : boolean;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readbool (clave, cadena, defecto);
finally
free;
end;
end;
//Lee un entero de un INI
function leEntINI (clave, cadena : string; defecto : integer) : integer;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readInteger (clave, cadena, defecto);
finally
free;
end;
end;
//Lee una cadena de texto de un INI
function leCadINI (clave, cadena : string; defecto : string) : string;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readString (clave, cadena, defecto);
finally
free;
end;
end;
//lee una fecha de un INI
function leFechaINI (clave, cadena : string; defecto : tdatetime) : tdatetime;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := ReadDate (clave, cadena, defecto);
finally
free;
end;
end;
//lee un valor numérico de un INI
function leFloatINI (clave, cadena : string; defecto : double) : double;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readfloat (clave, cadena, defecto);
finally
free;
end;
end;
//escribe un Booleano en un INI
procedure esBoolINI (clave, cadena : string; valor : boolean);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
writeBool (clave, cadena, valor);
finally
free;
end;
end;
//Escribe un entero en un INI
procedure esEntINI (clave, cadena : string; valor : integer);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
writeInteger (clave, cadena, valor);
finally
free;
end;
end;
//escribe una cadena de texto en un INI
procedure esCadINI (clave, cadena, valor : string);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
writeString (clave, cadena, valor);
finally
free;
end;
end;
//escribe un número en un INI
procedure esFloatINI (clave, cadena : string; valor : double);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
WriteFloat (clave, cadena, valor);
finally
free;
end;
end;
//escribe una fecha en un INI
procedure esFechaINI (clave, cadena : string; defecto : tdatetime);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
WriteDate (clave, cadena, defecto);
finally
free;
end;
end;
Espero de su ayuda, que función tengo que usar y como. Muchas Gracias.