Array em Delphi

[valterfsj 0]

Olá companheiros, novamente, venho eu pedir-lhes ajuda, porém desta vez não é em VB6

pois estou tentando aprender Delphi.

 

Para começar, fiz um Hello World com certa facilidade, por isso me lembrei de um programinha chato que tive que fazer em VB 6, PEGAR UM TXT, E COPIA-LO DE TRAZ PARA FRENTE como exemplo:

 

Txt Original Txt Copia

 

1 4

2 3

3 2

4 1

 

No VB6 quebrei a cuca e fiz com 3 arquivinhos txt, só para depois aprender que existia Array.

Porem, no delphi esta se mostrando mais facil fazer com 3 txt do que com array.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Nas linhas

 

Readln(arquivo1,ArrayEscrever(x));

e

 

Writeln(arquivo,ArrayEscrever(x));

 

da erro dizendo "Missing operator or semicolon".

 

O que devo fazer para soluciona-lo?

[Ryokusei 21]

var meuarray: array [inicio..fim] of tipo;

 

Ex:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[valterfsj 0]

Consegui concertar a array, porém, a string fica salva na array, so que não grava no arquivo...

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[dargains 1]

Me diz só uma coisa.

O que é array?

 

Um Jogo?

[Ryokusei 21]

Array são dados gravados um após o outro na memória.

Uma string é um array de char, por exemplo.

[dargains 1]

A tá,Foi mal a burrice :(

[Ryokusei 21]

Tudo bem, se não ficou claro image o seguinte:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Endereço inicial do array = 00BDAEBA;

 

Então temos:

 

DWORD [00BDAEBA] = FA3C

DWORD [00BDAEBA+4] = 0914

DWORD [00BDAEBA+8] = AACD

 

O incremento é de 4 em 4 pq estamos usando DWORD, ou seja, DWORD = 4 bytes.

[valterfsj 0]

Ja resolvi, pode fechar o topico.

 

Faltou um closefile(arquivo1);

[Ryokusei 21]

Problema resolvido, tópico fechado.