Importar Dados .txt

Question

Galera,Estou aki para pedir um help...Tenho um arquivo txt gerado e com um delimitador |Gostaria de pegar esses campos do txt e ir armazenando em uma tabela alguem pode me dar uma for�a� mais ou menos...

Marcio.theis · Answer

Uma forma simples de pegar os valores seria:

var
    arq: TextFile;
    linha, valor: string;
    x: integer;
begin
AssignFile(arq,�c:\teste.txt�);
{$I-}
Reset(arq);
{$I+}
if IOResult = 0 then
    begin
    while not Eof(arq) do
        begin
        Readln(arq,linha);
        valor:=��;
        for x:=1 to Length(linha) do
            begin
            valor:=valor + linha[x];
            if ((linha[x] = �|�) or (x = Length(linha))) then
                begin
                if (linha[x] = �|�) then
                    valor:=copy(valor,1,Length(valor) - 1);
                //Neste ponto vc j� ter� o "valor" para ser atribuido ao seu campo...
                valor:=��;
                end;
            end;
        end;
    end;