Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-05-2005
AdIIX AdIIX is offline
Registrado
 
Registrado: abr 2005
Ubicación: Mexico
Posts: 2
Poder: 0
AdIIX Va por buen camino
Como Generar Un Archivo Txt Desde Delphi

hola que tal espero que me ayuden con este pequeo problemilla que se me presento, necesito generar un documento txt. en delphi, como si estuviera usando el block de notas de windows.

saludos.

Última edición por dec fecha: 25-09-2007 a las 19:41:46.
Responder Con Cita
  #2  
Antiguo 08-05-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hay aquí un buscador, que...

Hola,

Prueba a buscar en este Foro utilizando, por ejempo, las palabras-clave "archivos texto": aparecen no pocas páginas en donde podrás encontrar varios hilos que seguramente te aportarán soluciones o como poco ideas.

Leer la guía de estilo del Foro tampoco te costará nada ni estará demás. En ella cuentas con información acerca de la manera en que plantear las preguntas, cómo escribirlas, cómo no hacerlo, etc., etc.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 08-05-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Puedes usar un simple TMemo para eso, le pones su propiedad Align = alClient y listo.

Para cargar usa Memo1.lines.LoadFromFile('c:\mio.txt');
Para guardar Memo1.lines.SaveToFile('c:\mio.txt');
Para añadir lineas Memo1.Lines.Add('esta linea la añado al final');

Consulta la ayuda de delphi que viene muy bien sobre este tema.

Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #4  
Antiguo 25-09-2007
douglas douglas is offline
Miembro
 
Registrado: jul 2007
Posts: 145
Poder: 17
douglas Va por buen camino
ok, gracias me sirve bastante, bien ahora, deseo leer cada linea que este dentro de ese memo, en cada una de esas lineas que voy a leer quiero lo siguiente:


a={1,2,3,4,5,6,7,8,9,0}

quiero hacer que lo que este antes del igual declararlo como variable tipo string, y lo que esta dentro de los corchetes almacenarlos a un array, para luego que cuando escriban en otro memo sean reconocidas las palabras.
Responder Con Cita
  #5  
Antiguo 25-09-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
¿Y este tema está en el foro Noticias? Por fa, algún moderador que lo mueva.


La función Pos permite saber donde está una subcadena dentro de otra, así que puedes saber donde está el símbolo de igual.

¿Es obligatorio un array para guardar los números?

si tenemos este texto : 1,2,3,4,5,6,7,8,9,0
podemos usar un TStringList para guardarlos, (funciona igual que los elementos de un Combobox, líneas de un memo, etc...)

Para guardarlos puedes usar algo así:
Código Delphi [-]
TForm1 = class(TForm)
...

private
  numerosDeA :TStringList;
end;

procedure TForm1.button1Click(...)
var lista :string;
    idxAbre, i :integer;
   idxCierra :integer;
begin
  FreeAndnil(numerosDeA);
  lista := 'a={1,2,3,4,5,6,7,8,9,0}';
  idxAbre := pos('{', lista);
  idxCierra := pos('}', lista);
  numerosDeA := TStringlist.Create;
  numerosDeA.commaText := Copy(lista, idxAbre +1, idxCierra - idxAbre);
  
  For i:=0 to numerosDeA.Count -1 do
    ShowMessage(Format('el índice %d de NumerosDeA tiene el texto %s', [ i,numerosDeA[i]]);
end;

Espero se entienda.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #6  
Antiguo 25-09-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
Cita:
Empezado por Lepe Ver Mensaje
¿Y este tema está en el foro Noticias? Por fa, algún moderador que lo mueva.
El mensaje es del 07-05-2005 no sabria decir exactamente cual a sido la causa de que estuviese en Noticias.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
  #7  
Antiguo 25-09-2007
douglas douglas is offline
Miembro
 
Registrado: jul 2007
Posts: 145
Poder: 17
douglas Va por buen camino
bueno ahora supon que en un label quiero la cadena que este despues del igual, y que luego quiero cada caracter de los que estan dentro del memo en otro form. algo asi
ejemplo


letras={a,b,c,d,e,f,g} los caracteres dentro de las llaves son fijos:

con lo de arriba quiero hacer esto:

label1.caption:=letras;
textbox1.text:=a;
textbox2.text:=b;
textbox3.text:=c;
textbox4.text:=d;
textbox5.text:=e;
textbox6.text:=f;
textbox7.text:=g;

por favor necesito ayudita, y perdon por lo de los dos hilos, jamas volvera a ocurri
Responder Con Cita
  #8  
Antiguo 25-09-2007
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
¿como le has intentado hacer douglas?
__________________

Responder Con Cita
  #9  
Antiguo 26-09-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Con las funciones Pos, Delete y Copy puedes hacerlo.

1- Con la función pos sabes donde está tal o cual caracter.
2- Copias
3- borras la cadena desde el indice 1 hasta la posición del carácter encontrado,
4 - Vuelves al primer paso.

Mira la ayuda de Delphi y mi código anterior (está escrito de memoria, puede tener errores), lo que pretendo es que aprendas tú a hacerlo... y la mejor forma es dar un ejemplo e ideas de como atacarlo.

Si tienes dudas concretas o algo que no entiendas, aqui estamos para ayudarte.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #10  
Antiguo 27-09-2007
douglas douglas is offline
Miembro
 
Registrado: jul 2007
Posts: 145
Poder: 17
douglas Va por buen camino
si es bueno, que aprenda, pero e estado intentando, pero me falta algo super escencial, como leer linea por linea el memo.
Responder Con Cita
  #11  
Antiguo 27-09-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Código Delphi [-]
for i:=0 to memo1.lines.count -1 do
begin 
  linea := Memo1.lines[i]
end;

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:56:33.


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