ARQUIVO DE TEXTO....COMPLICADO...
tenho um arquivo de texto com varias frases...... gostaria de saber como eu faço para pegar uma parte do texto e colocala na memoria.... tipo ...copiar da linha 5 até a 10 e colocala na variavel TEXTO....Obrigado pela atencao....
Geisonc
Curtidas 0
Respostas
Jrguitar
26/02/2003
Use uma Stringlist para carregar o arquvo
Procedure .....
var
slist : TStribgList;
s : string;
i : integer;
begin
slist := TStringList.Create;
slist.LoadFromFile(´Arquivo.txt´);
s := ´´;
for i := 4 to 9 do s := s+slist.strings[i];
slist.free;
end;
isso irá copiar as linhas 5, 6, ..., 10 da StringList na variável s.
a primeira linha tem o indice zero.
Espero ter ajudado
Procedure .....
var
slist : TStribgList;
s : string;
i : integer;
begin
slist := TStringList.Create;
slist.LoadFromFile(´Arquivo.txt´);
s := ´´;
for i := 4 to 9 do s := s+slist.strings[i];
slist.free;
end;
isso irá copiar as linhas 5, 6, ..., 10 da StringList na variável s.
a primeira linha tem o indice zero.
Espero ter ajudado
GOSTEI 0