(Resolvido) Separar informações de txt

[robinhocne]

tenho um arquivo txt que carrego em uma StringList, esse aquivo contém várias linhas

Ex.:

SisTeste;R:\Software\SisTeste;0;20/01/2012 10:05:03

Sis(Velho);R:\Software\Sis(Velho);0;20/01/2012 10:10:58

Unifica;R:\Software\Unifica;0;20/01/2012 10:12:21

Vendas;R:\Software\Vendas;0;20/01/2012 10:13:01

Então queria carregar isso em um DbGrid, mas cada ';' é um coluna então o resultado tem que ser assim:

Pasta Caminho Tamanho Dt. Atualizacao

SisTeste R:\Software\SisTeste 0 20/01/2012 10:05:03

Sis(Velho) R:\Software\Sis(Velho) 0 20/01/2012 10:10:58

Unifica R:\Software\Unifica 0 20/01/2012 10:12:21

Vendas R:\Software\Vendas 0 20/01/2012 10:13:01

assim eu carrego apenas o nome da pasta e caminho:

var
 Carac, CaracPos : Integer;
 Pastas : TStringList; 

{Extrai o nome da pasta ...}
 Carac    := length(Pastas[a]);
 CaracPos := pos(';', Pastas[a]);
{... Extrai o nome da pasta}

           with TblArq do
             begin
               insert;
               TblArqAquivo.AsString            := Trim(copy(Pastas[a],1,CaracPos-1));
               TblArqCaminhoArq.AsString    := Trim(copy(Pastas[a],CaracPos + 1,Carac - CaracPos));
                post;
             end;

Como faço para copiar o tamanho e data ?

Edited January 28, 2012 by robinhocne

[Jhonas]

Pegar nome e tamanho de um arquivo

function TamArquivo(Arquivo: string): Integer;
begin
   with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do
   try
      Result := Size;
   finally
      Free;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var tamanho : real;
begin
   if OpenDialog1.Execute then
      begin
        tamanho := TamArquivo(OpenDialog1.FileName);
        tamanho := (tamanho / 1024);
        Label1.Caption:= 'Nome do Arquivo = ' + copy(OpenDialog1.FileName,pos('\',OpenDialog1.FileName)+1,20);
        Label2.Caption:= 'Tamanho do Arquivo = ' + format('%n',[tamanho]) + ' Kb';
      end;
end;

outros atributos de arquivos

http://scriptbrasil.com.br/forum/index.php...mp;hl=atributos

outra dica:

Obtendo o Nome, Caminho, Data, Atributos e o Tamanho de um arquivo

Para pegar o Nome:

FileDirName.Caption:= FileList.Items[FileList.ItemIndex];

Para pegar o Caminho:

FilePathName.Caption:= FileList.Directory;

Para pegar a Data:

ChangeDate.Caption:= DateTimeToStr(FileDateTime(FileList.FileName));

Para pegar os Atributos:

Attributes := FileGetAttr(FileDirName.Caption);

Para pegar o Nome e o Tamanho:

TheFileName: string;

TheFileName := Items[itemIndex];

FilePanel.Caption := Format('%s, %d bytes', [TheFileName, GetFileSize(TheFileName)]);

abraço

[robinhocne]

Valre Jhonas otimas dicas......foi muito util...obrigado