Criando um Arquivo Texto em Delphi

Com base no post anterior você fazer o mesmo programa em Delphi para ver as diferenças.

Como o Delphi é uma continuação do Pascal o programa irá ficar bem semelhante, exceto pelas partes de objetos que o Delphi utiliza.

No meu conceito de aprendizagem de linguagem de programação deveria pouco a pouco substituindo a linguagem Pascal por Delphi, pois atualmente é muito mais interessante ao aluno e muito mais versatil ao professor.

Lembre-se que é apenas educacional para aprender a começar a usar. Se precisar de algo mais robusto entre em contato ou aguarde as próximas edições.

Código Fonte:


 unit Unit1;  
 interface  
 uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls;  
 type  
  TForm1 = class(TForm)  
   Button1: TButton;  
   Label1: TLabel;  
   procedure Button1Click(Sender: TObject);  
  private  
   { Private declarations }  
  public  
   { Public declarations }  
  end;  
 var  
  Form1: TForm1;  
 implementation  
 {$R *.dfm}  
 procedure TForm1.Button1Click(Sender: TObject);  
 var  
  tf : TextFile;  
 begin  
  Assignfile (tf,'Arquivo.Txt');  
  ReWrite (tf);  
  WriteLn (tf,'Uma Linha');  
  CloseFile (tf);  
  Label1.Caption := 'Arquivo Criado!';  
 end;  
 end.  

Vamos a algumas análises e compartivos.

A lista Uses é bem maior que no Pascal pela várias bibliotecas que o Delphi utiliza para a parte gráfica (Windows).

Na parte Type são declarados os Objetos: Button = Botão e Label = Texto.

O comando Assign do Pascal é substituído por AssignFile.

O resto fica muito semelhante ao código Pascal.

Nenhum comentário:

Postar um comentário