Skip to main content
removeu 7 caracteres do conteúdo
Fonte Link
Junior Moreira
  • 7mil
  • 4
  • 22
  • 50

Bom dia,

Eu tenhoTenho um TStringListTStringList que armazena nomes de caminho absoluto de alguns arquivos e eu quero colocar esses nomes em um arquivo de texto somente se o nome atual verificado ainda não existir dentro de arquivo de texto. 

Ao executar estes passos pela primeira vez, todo o conteúdo da lista de textos é gravado, mas quando é executado pela segunda vez, o seguno FORsegundo FOR não consegue verificar e escreve algumas linhas do TStringListTStringList que já foram gravado antes, e desta vez, com algumas repetições.

Bom dia,

Eu tenho um TStringList que armazena nomes de caminho absoluto de alguns arquivos e eu quero colocar esses nomes em um arquivo de texto somente se o nome atual verificado ainda não existir dentro de arquivo de texto. Ao executar estes passos pela primeira vez, todo o conteúdo da lista de textos é gravado, mas quando é executado pela segunda vez, o seguno FOR não consegue verificar e escreve algumas linhas do TStringList que já foram gravado antes, e desta vez, com algumas repetições.

Tenho um TStringList que armazena nomes de caminho absoluto de alguns arquivos e eu quero colocar esses nomes em um arquivo de texto somente se o nome atual verificado ainda não existir dentro de arquivo de texto. 

Ao executar estes passos pela primeira vez, todo o conteúdo da lista de textos é gravado, mas quando é executado pela segunda vez, o segundo FOR não consegue verificar e escreve algumas linhas do TStringList que já foram gravado antes, e desta vez, com algumas repetições.

Fonte Link

Problema com interação em loop FOR usando TStringList

Bom dia,

Eu tenho um TStringList que armazena nomes de caminho absoluto de alguns arquivos e eu quero colocar esses nomes em um arquivo de texto somente se o nome atual verificado ainda não existir dentro de arquivo de texto. Ao executar estes passos pela primeira vez, todo o conteúdo da lista de textos é gravado, mas quando é executado pela segunda vez, o seguno FOR não consegue verificar e escreve algumas linhas do TStringList que já foram gravado antes, e desta vez, com algumas repetições.

Qualquer sugestão aqui será bem-vinda.

Aqui é a minha última tentativa:

var
  Form1: TForm1;
  ListPathFiles, ListStoredPathFiles: TStringList;
  StoreFile: TextFile;

implementation

{$R *.dfm}

function FileSize(const aFilename: String): Int64;
  var
    info: TWin32FileAttributeData;
  begin
    result := -1;

    if NOT GetFileAttributesEx(PWideChar(aFileName), GetFileExInfoStandard, @info) then
      EXIT;

    result := Int64(info.nFileSizeLow) or Int64(info.nFileSizeHigh shl 32);
  end;

procedure TForm1.btn1Click(Sender: TObject);
var
I, J: Integer;
begin
  I:= 0;
  J:= 0;

if not FileExists('paths.txt') then begin
      AssignFile(StoreFile, 'paths.txt');
      Rewrite(StoreFile);
      CloseFile(StoreFile);
end;

ListPathFiles:= TStringList.Create;
ListStoredPathFiles:= TStringList.Create;

if FileSize('paths.txt') = 0 then
 begin
    ListStoredPathFiles.Add('');
 end;

ListPathFiles.Add('C:\Users\MyUser\Desktop\test\File1.txt');
ListPathFiles.Add('C:\Users\MyUser\Desktop\test\File2.txt');
ListPathFiles.Add('C:\Users\MyUser\Desktop\test\File3.txt');
ListPathFiles.Add('C:\Users\MyUser\Desktop\test\File4.txt');
ListPathFiles.Add('C:\Users\MyUser\Desktop\test\File5.txt');

ListStoredPathFiles.LoadFromFile('paths.txt');

     for I := 0 to ListPathFiles.Count-1 do
      begin

      for J := 0 to ListStoredPathFiles.Count-1 do
       begin
        if Pos(ListPathFiles.Strings[I], ListStoredPathFiles.Strings[J]) > 0  then

        begin
          Break;
        end

        else
         begin

             AssignFile(StoreFile, 'paths.txt');
             Append(StoreFile);
             Writeln(StoreFile, ListPathFiles.Strings[I]);
             CloseFile(StoreFile);

            ShowMessage('New path added in text file!');

          end;

      end;

    end;

    ListPathFiles.Free;
    ListStoredPathFiles.Free;
end;