Ver Mensaje Individual
  #3  
Antiguo 25-01-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 31
Lepe Va por buen camino
Lo que deseas hacer parece ser un modelo de cartas tipo. Para no liarte mucho te propongo algo simple.

En una ventana pones un TMemo y en su propiedad Lines, escribe el siguiente texto:
Cita:
Estimado Señor %s :

Su %s está siendo revisada. En %s dias hábilies recibirá contestación.
Lógicamente los "%s" se sustituye por lo que pongas en el Tedit o en las opciones de tu programa.

Como se haría???

Pues muy facil, aqui tienes un pequeño ejemplo:
Necesitas un Tedit, un boton y un Tmemo
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var CartaFinal:TStringList;
begin
  CartaFinal := TStringList.Create; // creamos la carta oculta
try
  // formateamos el modelo que está en el Tmemo y lo copiamos a CartaFinal
  CartaFinal.text := Format(Memo1.Text,[
                 Edit1.text,
                 'Factura 0000/3333',
                  IntToStr(34)]);
// para ver los cambios en pantalla
  Memo1.Text:= CartaFinal.Text; 

// Guardamos la carta final con extension de bloc de notas
// La carta final si la puede abrir el usuario.
  CartaFinal.SaveToFile('c:\Modelo01 dirigido a '+ Edit1.text+'.txt );
finally
  CartaFinal.Free; // liberamos la memoria
end;

end;

end.

Por supuesto este es un ejemplo muy tosco, tendrás que retocarlo bastante, pero es una idea.

Como ves, los elementos que he usado son Tmemo, Tstringlist, la funcion Format de la unidad SysUtils de Delphi y poco más, pero con eso ya tienes tus objetivos cumplidos.

Saludos
Responder Con Cita