Fórum Comparar Dados em 2 Memo #262629

    for i := 0 to MmListaGeral.Lines.Count do
      begin
        for j := 0 to MmListaDados.Lines.Count do
          begin
            if (MmListaGeral.Lines[i]) <> (MmListaDados.Lines[j]) then
              begin
                MmListaFaltantes.Lines.Add(MmListaGeral.Lines[i]);
              end;
          end;
      end;

    for i := 0 to MmListaGeral.Lines.Count do 
       if MmListaDados.Lines.IndexOf(MmListaGeral.Lines[i])) = -1 then
         MmListaFaltantes.Lines.Add(MmListaGeral.Lines[i]); 

Function DiferencaMemo(MemoComparar, MemoBase:TMemo):TStringList;
var
x, i:Integer;
Lista:TStringList;
Existe:boolean;
begin
   Lista:=TStringList.Create;
   for x:=0 To MemoComparar.lines.Count do
     begin
        Existe:=False;
        For i:=0 to MemoBase.Lines.Count do
           if MemoComparar.Lines[x] = MemoBase.Lines[i] then
               begin
                  Existe:=True;
                  break;
               end;
            if Existe=True then
               Continue;
         Lista.add(MemoComparar.Lines[x]);
     end;
  result:=Lista;
end;

    for i := 0 to MmListaGeral.Lines.Count do
      begin
        for j := 0 to MmListaDados.Lines.Count do
          begin
            if MmListaDados.Lines.IndexOf(MmListaGeral.Lines[i]) = -1 then
              begin
                Nome := MmListaGeral.Lines[i];
              end;
          end;
        MmListaFaltantes.Lines.Add(Nome);
      end;

  for i := 0 To MmListaGeral.Lines.Count do
    begin
      Existe := false;
      for j := 0 to MmListaDados.Lines.Count do
        if MmListaGeral.Lines[i] = MmListaDados.Lines[j]
          begin
            Existe := true;
            break;
           end;
        if Existe = true then
          Continue;
          MmListaFaltantes.Lines.Add(MmListaGeral.Lines[i]);
    end;
end;

  DmDados.ClientNacionais.Close; //fecha o cliente pra pesquisa
  with DmDados.SqlNacionais do //faz a pesquisa pelo Grupo e SubGrupo selecionado
    begin
      close;
      CommandText :=
        ´Select * From TbRevNacionais Where FkCod_Grupo =´
        + IntToStr(DbLkUpGrupos.KeyValue)
        + ´And FkCod_SubGrupo =´
        + IntToStr(DbLkUpSubGrupos.KeyValue)
        + ´Order By NomeNumero´;
      open;
    end;
  DmDados.ClientNacionais.Open;
  DmDados.ClientNacionais.First; //depois da pesquisa, vai pro primeiro registro
  while not DmDados.ClientNacionais.Eof do //enquanto nao for o ultimo registro
    begin
      MmListaDados.Lines.Add(DmDados.ClientNacionais.FieldByName(´NomeNumero´).AsString); //O Memo de dados recebe os nomes das revistas
      DmDados.ClientNacionais.Next; //vai pro proximo registro pra seguir o loop
    end;

  for Controle := StrToInt(EdtInicial.Text) to StrToInt(EdtFinal.Text) do //para o controle receber o nº inicial até o final, faça
    begin
      Resultado := IntToStr(Controle); //resultado recebe o valor de controle passado pra string
      if EdtZeros.Text = ´0´ then //se nao tiver zeros a esquerda
        begin
          Numeros := StrToInt(Resultado);
          Resultado := EdtNome.Text + Resultado; //resultado recebe ele mais resultado
          MmListaGeral.Lines.Add(Resultado); //mostra o resultado
        end
      else if EdtZeros.Text = ´1´ then //se tiver um zero a esquerda
        begin
          while (length(Resultado) < 2) do //enquanto as numeros forem menor q 2 digitos
          Resultado := ´0´ + Resultado; //resultado recebe 0 mais ele mesmo
          Numeros := StrToInt(Resultado);
          Resultado := EdtNome.Text + Resultado;
          MmListaGeral.Lines.Add(Resultado);
        end
      else if EdtZeros.Text = ´2´ then //se tiver dois zeros a esquerda
        begin
          while (length(Resultado) < 3) do //enquanto o numero de campos for menor q 3
          Resultado := ´0´ + Resultado; //resultado recebe 0 mais ele mesmo até ter dois zeros a esquerda
          Numeros := StrToInt(Resultado);
          Resultado := EdtNome.Text + Resultado; // resultado recebe o q ta no edit do nome mais ele mesmo, pra formar o nome mais as edições
          MmListaGeral.Lines.Add(Resultado); // lista geral recebe os nomes e edições geradas
        end;
    end;

  for i := 0 To MmListaGeral.Lines.Count do // para o i receber 0 e ir até o numero de registros no memo de lista gerada
    begin
      Existe := false; //variavel existe recebe falso
      for j := 0 to MmListaDados.Lines.Count do //para j receber 0 e ir até o numero de registros do memo de lista de dados
        if MmListaGeral.Lines[i] = MmListaDados.Lines[j] then //se o registro na posiçao i for iguao ao registro na posiçao j
          begin
            Existe := true; //existe recebe verdadeiro
            break; //para a pesquisa
           end;
        if Existe = true then //se registro for verdadeiro
          Continue; //continua
          MmListaFaltantes.Lines.Add(MmListaGeral.Lines[i]); //e o memo de faltantes recebe o registro da posiçao i no memo de lista gerada
    end;
end;