Ir para conteúdo
Fórum Script Brasil
  • 0

Pesquisa Em Txt


Gustavo Bertazzoli

Pergunta

Pessoal olha o q eu fiz....

não esta pronto ainda.....

estou por enquanto só mostrando os campos nos edits

procedure TForm1.Button1Click(Sender: TObject);
var
 f : TextFile;
 s : string;
 lst : TStringList;

begin
AssignFile(f,'C:\teste.txt');
Reset(f);

while not eof(f) do
begin
Readln(f,s);
lst := TStringList.Create;
lst := SeparaString(s);
Edit2.Text := lst.ValueFromIndex[1];
Edit3.Text := lst.ValueFromIndex[2];
end;

end;

function TForm1.SeparaString(Str: String): TStringList;
var
  posSol : integer;
  retorno : TStringList;
begin
  retorno := TStringList.Create;

  repeat
    posSol := pos(';',Str);
    if posSol = 0 then
      retorno.Add(Str)
    else
    begin
      retorno.Add(copy(Str,0,posSol-1));
      delete(Str, 1, posSol);
    end;

  until posSol = 0;
  result := retorno;
end;

mas o problema é que

os textos parecem com a primeira letra comida assim o

69930000;ACRELANDIA :M;GERAL;GERAL

aparece no edit2 => CRELANDIA :M

aparece no edit3 => ERAL

por favor me ajudem!!!!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Aew cara, é maix simples tu fazeh assim ^^'''

var
  Linhas: TStringList;
  Texto: String;
begin
  Linhas := TStringList.Create;

  Linhas.LoadFromFile('c:\windows\desktop\teste.txt');
  Texto := Linhas.Text;

  while Pos(';', Texto) > 0 do
    Texto[Pos(';', Texto)] := #13;

  Linhas.Text := Texto;

  ShowMessage(Linhas[0]);
  ShowMessage(Linhas[1]);

  Linhas.free;
end;

Já que você tah usando StringList, nem precisa mexeh com manipulacao de arquivo cara...

Bom, aki funcionou di forma perfeita ^__^

esperu que ti ajude...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...