PDA

Ver la Versión Completa : Guardar información contenida en EDITS


Haimerher
20-02-2008, 22:16:06
Hola, soy nuevo en delphi y me gustaría que me ayudaran con un programa en el que estoy trabajando. yo quiero saber cómo puedo guardar información contenida en varios EDITS y que una vez quedado en blanco el registro, por medio de una palabra clave o algo por el estilo pueda ver lo que se llegó a introducir. Si me pueden ayudar les estaré muy agradecido.:cool:

Caral
20-02-2008, 22:52:05
Hola Haimerher
Bienvenido al club.
Primero lo primero:
Donde piensas guardar esta imformacion?.
1- Una base de datos?, Cual?
2- Un archivo texto?.
Nos puedes ampliar los datos?
Saludos

Haimerher
21-02-2008, 02:45:00
ok no hay problema. resulta que estoy trabajando en una aplicación -como ya mencioné- donde introduzco varios datos en el edit, en este caso números. una vez que estén intoducidos me gustaría guardar la información ya sea en una base de datos "sencilla" (preferiblemente) o en un documento de texto si es posible. No se si habré sido lo más específico posible.
Saludos!:)

jachguate
21-02-2008, 05:10:10
Para guardar el contenido de los edits en un archivo de texto podrías valerte de la clase TIniFile, haciendo esto:


uses IniFiles;

procedure TForm1.GuardaInfo;
var
I: Integer;
Ini: TIniFile;
begin
Ini := TIniFile.Create('datos.ini');
try
for I := 0 to ComponentCount - 1 do
if (Components[I] is TEdit) then
Ini.WriteString('Datos', Components[I].Name, TEdit(Components[I]).Text);
finally
Ini.Free;
end;
end;

procedure TForm1.RecuperaInfo;
var
I: Integer;
Ini: TIniFile;
begin
Ini := TIniFile.Create('datos.ini');
try
for I := 0 to ComponentCount - 1 do
if (Components[I] is TEdit) then
TEdit(Components[I]).Text := Ini.ReadString('Datos', Components[I].Name, '');
finally
Ini.Free;
end;
end;


Hasta luego.

;)