Guardar Archivo De Texto

[*Caro*]

Hola, como te dice Neftali lo mas facil es usar un TString y puedes también recorrer los componentes que tienes en tu formulario y cuando es un Edit recuperar su Text y guardarlo en el StringList.

Código Delphi [-]
var
 Ind : Integer;
 slFile : TStringList; 
begin
 slFile := TStringList.Create;
 
 try
   For Ind:=0 to ComponentCount -1 do
    begin
      If (Components[Ind] Is TEdit) Then
        slFile.Add(TEdit(Components[Ind]).Text);
    end;
   slFile.SaveToFile('C:\File.txt');
 Finally
   FreeAndNil(slFile);
 end;
end;

Saluditos

[Ðαяισš]

Bien

Muchas Gracias A los 2..

Esta Perfecto.. le añadi otros tipos de extenciones con el primer codigo

y con el ultimo use el de las strings para copiar lo de todos los Edits

quedo estupendo ..

pero.. necesito hacer otra cosa..
cuando se guarda tal .txt o tal archivo con su extencion
deseo que al lado del mismo diga un nombre ejemplo se guardaron 3 Edits

Edit1.text := 'Texto 1'
Edit2.text := 'Texto 2'
Edit3.text := 'Texto 3'

si los edits tienen eso ovbiamente se guardara solamente eso..
pero deseo que al lado de cada edit diga algo un texto (lo que sea) ejemplo:

Edit1.text := 'Texto 1' = Este Texto1
Edit2.text := 'Texto 2' = Este Texto2
Edit3.text := 'Texto 3' = Este Texto3

osea que en el archivo guardado quedara asi:

Texto 1 = Este Texto1
Texto 2 = Este Texto2
Texto 3 = Este Texto3

Entienden?
Gracias si me pueden decir como va.
hasta luego.

[[Delphius]]

Empezado por Ðαяισš

Jaja.. Perfecto Simplemente de lo mejor..

Muchas Gracias A los 2..

Esta Perfecto.. le añadi otros tipos de extenciones con el primer codigo

y con el ultimo use el de las strings para copiar lo de todos los Edits

quedo estupendo ..

pero.. necesito hacer otra cosa..

cuando se guarda tal .txt o tal archivo con su extencion

deseo que al lado del mismo diga un nombre ejemplo se guardaron 3 Edits

Edit1.text := 'Texto 1'
Edit2.text := 'Texto 2'
Edit3.text := 'Texto 3'

si los edits tienen eso ovbiamente se guardara solamente eso..
pero deseo que al lado de cada edit diga algo un texto (lo que sea) ejemplo:

Edit1.text := 'Texto 1' = Este Texto1
Edit2.text := 'Texto 2' = Este Texto2
Edit3.text := 'Texto 3' = Este Texto3

osea que en el archivo guardado quedara asi:

Texto 1 = Este Texto1
Texto 2 = Este Texto2
Texto 3 = Este Texto3

Entienden?
Gracias si me pueden decir como va.
hasta luego.

Creo entenderte. Tu lo que buscas es un archivo .ini. Busca en los foros sobre TIniFile para aprender su manejo.

Básicamente el archivo ini es un archivo de texto con una estructura basada en secciones y variables.

Un ejemplo de como se vería es éste:

[SECCION1]
Variable1=valor
...
VariableN=valorN

Siendo valorN un string, un entero, etc.

Con la clase TIniFile puedes crear y leer dicho archivo ini. En tu caso deberás tener una sección con un nombre a elección y tus tres variables (texto1, texto2, texto3). Cuando leas las variables, recibirás el contenido de las mismas.

Si tienes dudas avisanos,

Saludos,

[Ðαяισš]

Gracias Delphius ya he encontrado la solucion ..

hasta pronto.