Por favor alguem

Delphi

10/02/2003

Ae eu criei um programa de criar texto como ta no primeiros passos, mas eu naum consigo fazer uma coisa salvar direito, pois eu salvo mas o arquivo fica sem o tipo.
ex:
salvando arquivo lol
arquivo salvo
visualizar...
lol.???
No caso aki eu colokei as ? pq isso naum aparece, e isso k falta kuando eu salvo, alguem sabe no k eu errei???
a unit ta assim:


unit Unit1;

interface

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

type
TForm1 = class(TForm)
abrir: TButton;
RichEdit1: TRichEdit;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Salvar: TButton;
Sair: TButton;
procedure abrirClick(Sender: TObject);
procedure SalvarClick(Sender: TObject);
procedure SairClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.abrirClick(Sender: TObject);
begin
if opendialog1.Execute then
richedit1.lines.LoadFromFile(opendialog1.filename);

end;

procedure TForm1.SalvarClick(Sender: TObject);
begin
if savedialog1.Execute then
richedit1.lines.savetoFile(savedialog1.filename);

end;

procedure TForm1.SairClick(Sender: TObject);
begin
Close;
end;

end.


se alguem ainda naum entendeu, post.
se alguem sabe o k fazer post tb, plz.


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

10/02/2003

voce esqueceu de colocar no componente SAVEDIALOG na propriedade DEFAULTEXPRESSION = TXT ou qualquer coisa parecida


GOSTEI 0
Dor_poa

Dor_poa

10/02/2003

Cara, tu falou, falou e eu nao entendi nada, DESCULPE.....


GOSTEI 0
POSTAR