Copiar Texto

Question

Ol� pessoal eu tow com o seguinte problema....

como q eu fa�o pra copiar o conte�do de um arquivo Txt para um memo tendo em vista q....

se o arquivo tiver mais de 2 mil caracteres o mesmo s� copiar� 2 mil e o resto ser� cortado...

algu�m tem alguma id�ia???

Vlw

Wdrocha · Answer

Algu�m??????????...

Sistemald · Answer

ol�,tente usar o TrichEdit, pois se n�o me engano o memo tem um limite....

Paulo · Answer

Te aconselho a jogar para um TStringlist e depois d� um Count nela. caso seja > 2000, a� voc� delata.

var arq:TextFile; lista:TStringList; sTexto:String; begin lista := TStringList.Create; AssignFile(Arq,�C:\Meu_Dir\Arquivo.txt�); Reset(Arq); while not eof(arq) do begin Readln(arq,sTexto) lista.add(sTexto); end; end;

Depois voc� da um Count na lista para remover caso seja maior que 2000

Wdrocha · Answer

Eu fiz assim e tbm n�o deu mt certo...[code:1:65d8ffe1f4]Arquivo := TStringList.Create;Arquivo.LoadFromFile(LblPath.Caption + EdtNomeArquivo.Text);//Path e arquivo escolhido pelo usu�rioIf Length (Arquivo.GetText) > 6000 Then   Begin       For I := 6000 To Length (Arquivo.GetText) Do              Arquivo.Delete(I); //Deleta a posi��o I              FreeAndNil (Arquivo);                      End;[/code:1:65d8ffe1f4]tah dando erro de List Index Out Of Bound (6000) ...Acontece logo na primeira volta do for...Paulo, do outro jeito n�o consegui como resolver....vc tem algum exemplo mais claro??Mt Obrigado a todos...No Aguardo...Bom dia a todos........

Wdrocha · Answer

Eu fiz assim e tbm n�o deu mt certo...[code:1:2ef9f14323]Arquivo := TStringList.Create;Arquivo.LoadFromFile(LblPath.Caption + EdtNomeArquivo.Text);//Path e arquivo escolhido pelo usu�rioIf Length (Arquivo.GetText) > 6000 Then   Begin       For I := 6000 To Length (Arquivo.GetText) Do              Arquivo.Delete(I); //Deleta a posi��o I              FreeAndNil (Arquivo);                      End;[/code:1:2ef9f14323]tah dando erro de List Index Out Of Bound (6000) ...Acontece logo na primeira volta do for...Paulo, do outro jeito n�o consegui resolver....vc tem algum exemplo mais claro??Mt Obrigado a todos...No Aguardo...Bom dia a todos........

Paulo · Answer

Veja se assim da certo.[quote:8e13daa1e5]for I := Lista.Count-1 downto 2000  Lista.Delete;[/quote:8e13daa1e5]...