Fórum Ler arquivo TXT #139733

Uma das opcoes e criar uma TStringList e usar loadformfile, entre outras.

Para ter uma ideia de maneira facil use um Tmemo, e de um comando

SeuMemo.LoadFromFile(´c:\seuarquivo´);

Voce pode fazer a mesma coisa com o stringlist mas tem que criar e detruir o mesmo em seu programa.

Voce tambem pode usar realn , mas e muito trabalhoso.

Mas como crio a lista de string?

Como voce nao sabe criar usa um componente Tmemo ele ja tem uma dentro dele.

[color=blue:d7e78e6b6e]unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile(´c:\autoexec.bat´);
end;

end.
[/color:d7e78e6b6e]

Copia esta unita e roda

[b:3068b179e3]
Olá, :D

Sou quase um programador, tenho só 13 ( :!: ) anos e constaria de ajuda-lo:
[/b:3068b179e3]

[b:3068b179e3] [color=blue:3068b179e3][size=18:3068b179e3]Atenção[/size:3068b179e3][/color:3068b179e3] [/b:3068b179e3] Apenas modifique!! Se não, não vai dar erro.

//

[size=12:3068b179e3][color=red:3068b179e3]unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Arq : TStringLIst;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Arq := TStringLIst.Create;

// Arq.LoadFromFile(´Nome_do_Arquivo.Map´);
// Se quiser abrir algum arquivo.

Arq.Add(´Nome = Mapa001´);
Arq.Add(´Width = 300´);
Arq.Add(´Height = 300´);
Arq.Add(´´);

Arq.Add(´Layer1 = (3,6,2,6,2)´);
Arq.Add(´(3,6,2,6,2) ´);
Arq.Add(´(3,6,2,6,2) ´);

Arq.Add(´Layer2 = (3,6,2,6,2) ´);
Arq.Add(´(3,6,2,6,2) ´);
Arq.Add(´(3,6,2,6,2) ´);

Arq.Add(´Layer3 = (3,6,2,6,2) ´);
Arq.Add(´(3,6,2,6,2) ´);
Arq.Add(´(3,6,2,6,2) ´);

Arq.SaveToFile(´Nome_do_Arquivo.Map´);

Arq.Free;

end;

end.[/color:3068b179e3][/size:3068b179e3] [color=blue:3068b179e3][/color:3068b179e3]