Fórum Separar Texto de RichEdit em Vários Arquivos .txt #607153

procedure TFrmMain.BtnSepararTXTClick(Sender: TObject);
var
  i, num : integer;
begin
// Começa a numeração do arquivo em zero
num := 0;

// Analisa todas as linhas do memo
for i := 0 to RichEdit.Lines.Count-1 do
    begin
    // Se o conteudo da linha for diferente do separador entao
    if RichEdit.Lines[i] <> EdtSeparador.Text then
       begin
       // Adiciona o conteudo da linha no Memo
       RichEditArquivo.Lines.Add(RichEdit.Lines[i]);
       end
    else
       begin
       Num := Num+1;  // Atualiza a numeracao do arquivo
       RichEditArquivo.Lines.SaveToFile(EdtDiretorio.Text + EdtPrefixoArquivo.Text + IntToStr(num) + '.txt');  // Salva o conteudo do Memo no arquivo
       RichEditArquivo.Lines.Clear;  // Limpa o RichEditArquivo
       end;
    end;
end;