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
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var CartaFinal:TStringList;
begin
CartaFinal := TStringList.Create; try
CartaFinal.text := Format(Memo1.Text,[
Edit1.text,
'Factura 0000/3333',
IntToStr(34)]);
Memo1.Text:= CartaFinal.Text;
CartaFinal.SaveToFile('c:\Modelo01 dirigido a '+ Edit1.text+'.txt );
finally
CartaFinal.Free; 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