Ler arquivo TXT
Oi
Gostaria de saber como carregar informações de um arquivo TXT, eu estou fazendo um jogo e preciso criar arquivos de mapa, os arquivos teriam esse modelo:
Nome = xx
Width = xx
Height = xx
Layer1 = (3,6,2,6,2)
(3,6,2,6,2)
(3,6,2,6,2)
Layer2 = (3,6,2,6,2)
(3,6,2,6,2)
(3,6,2,6,2)
Layer3 = (3,6,2,6,2)
(3,6,2,6,2)
(3,6,2,6,2)
No caso os dois primeiros valores (Width, Height) seria o tamanho do mapa e os layers são arrays(layer1= chao layer2 = objetos, paredes, etc. layer3 = personagens)
por favor ajudemmmmmmmmmmmmmmmmmmmmmmmmmmm!!!!!!
Brigado!!
Gostaria de saber como carregar informações de um arquivo TXT, eu estou fazendo um jogo e preciso criar arquivos de mapa, os arquivos teriam esse modelo:
Nome = xx
Width = xx
Height = xx
Layer1 = (3,6,2,6,2)
(3,6,2,6,2)
(3,6,2,6,2)
Layer2 = (3,6,2,6,2)
(3,6,2,6,2)
(3,6,2,6,2)
Layer3 = (3,6,2,6,2)
(3,6,2,6,2)
(3,6,2,6,2)
No caso os dois primeiros valores (Width, Height) seria o tamanho do mapa e os layers são arrays(layer1= chao layer2 = objetos, paredes, etc. layer3 = personagens)
por favor ajudemmmmmmmmmmmmmmmmmmmmmmmmmmm!!!!!!
Brigado!!
Anonymous
Curtidas 0
Respostas
Anonymous
22/02/2003
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.
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.
GOSTEI 0
Anonymous
22/02/2003
Mas como crio a lista de string?
GOSTEI 0
Anonymous
22/02/2003
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
[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
GOSTEI 0
Anonymous
22/02/2003
[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]
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]
GOSTEI 0