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.