ler o arquivo de texto ao contr�rio

Question

eu queria retirar dados de um arquivo txt e pass�-lo para um stringrid mas a �ltima linha deveria ser a primeira em asimm por diantefica assim:No arquivo(assim est� certo)item Aitem Bitem Cno stringri...

Cebikyn · Answer

[quote:c24f8a7639=�Anderson_Blumenau�]outra coisa: como eu fa�o pra uma fun��o me retornar mais de uma string separadamente[/quote:c24f8a7639]Para fazer uma fun��o retornar duas strings, pode usar algo como no exemplo abaixo:[code:1:c24f8a7639]function Retorna2String(Parametro1:Tipo; var String1: String): String;begin  Result:= �Primeira String�;  String1:= �Segunda String�;end;...var  Str1, Str2: String;begin  Str1 := Retorna2String(Parametro1, Str2);end;[/code:1:c24f8a7639]...

Anderson_blumenau · Answer

valeu c:>...

Wbb · Answer

Anderson,Eu tive este problema que voc� est� tendo e publiquei um t�pico com o seguinte t�tulo: [b:8a9b5b981b]Array de funtion. � poss�vel?.[/b:8a9b5b981b]Sugiro dar uma olhada, pois o pessoal me deu solu��es muito boas.At� mais.wbb...

Anderson_blumenau · Answer

[quote:6ec4dcdc33=�wbb�]Anderson,Eu tive este problema que voc� est� tendo e publiquei um t�pico com o seguinte t�tulo: [b:6ec4dcdc33]Array de funtion. � poss�vel?.[/b:6ec4dcdc33]Sugiro dar uma olhada, pois o pessoal me deu solu��es muito boas.At� mais.wbb[/quote:6ec4dcdc33]Valeu cara era bem o que eu precisavaagora eu so preciso saber como ler um arquivo de texto ao contr�rio...

Wbb · Answer

Anderson, quanto a ler o arquivo texto ao contr�rio eu sugiro apenas uma op��o. Esta n�o � necessariamente a �nica nem a melhor, mas � a que sei (digo isso N�O para voc�, mas SIM para que n�o venha nenhum pentelho dizer que � �emjambra��o�, como aconteceu recentemente em outro t�pico, ao inv�s de dar uma solu��o testada e melhor).

Esta solu��o � retirada de uma dica do usu�rio [b:ceb693c6c5]bacalhau[/b:ceb693c6c5], para resolver um outro problema, mas tamb�m serve no seu caso.

procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : TMemo;
y: Integer;
begin
Arquivo:= TMemo.Create(Self);
Arquivo.Parent := form1;
Arquivo.Lines.LoadFromFile(�C:\Temp\Teste1.txt�);

for y := Arquivo.Lines.Count - 1 downto 0 do
begin
StringGrid1.Cells[x,y] := Arquivo.Lines[y];
end;

arquivo.free;
end;

Quanto ao [b:ceb693c6c5]StringGrid1.Cells[x,y],[/b:ceb693c6c5] � s� para demonstrar como inserir as linhas do Arquivo no StringGrid (n�o sei se � assim que voc� far�).

Espero que ajude!
wbb

F�rum ler o arquivo de texto ao contr�rio #183196