Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Guardar información contenida en EDITS (https://www.clubdelphi.com/foros/showthread.php?t=53444)

Haimerher 20-02-2008 22:16:06

Guardar información contenida en EDITS
 
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:

Código Delphi [-]
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.

;)


La franja horaria es GMT +2. Ahora son las 09:18:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi