Creo que mi pregunta fue muy clara. Deseo saber como poner el texto de un TMemo en un archivo .txt, y como poner el texto de un .txt a un TMemo.
Incluyan el uso de los Dialogos de Obtener y guardar fichero.
Ademas le tengo que añadir al inicio del texto (cuando se guarda) #Hola mundo
Esto es lo que ya llevo(casi nada):
Código:
unit a;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
MaskEdit, StdCtrls, PrintersDlgs;
type
{ TForm1 }
TForm1 = class(TForm)
Memo1: TMemo;
SaveDialog1: TSaveDialog;
ToggleBox1: TToggleBox;
procedure Memo1Change(Sender: TObject);
procedure ToggleBox2Change(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.ToggleBox2Change(Sender: TObject);
begin
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
end;
initialization
{$I a.lrs}
end.