| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите компонент для поиска различий в текст файлах

Priest ©   (2009-08-12 10:24:00) 

Нужен компонент, которые показывает отличия как это сделано в граф. оболочках svn. Т.е. 2 файла загружаем и слева и справа показывает чем они отличаются.

---

Amoeba   (2009-08-12 15:25:00) [1]

> Priest   (12.08.09 10:44) [2]
>
> мне нужно компонентом в свою прогу

А для выполнения четырех арифметических действий компонент тоже нужен?

---

{RASkov}   (2009-08-12 10:54:00) [2]

для текстовых файлов малого размера можно нечто вот такое сделать:
procedure TForm1.Button1Click(Sender: TObject);
procedure CompareFile;
var N: Integer;
begin
  for N:=1 to Length(RichEdit1.Text) do begin
   if N>Length(RichEdit2.Text) then Break;
   if RichEdit1.Text[N]<>RichEdit2.Text[N] then begin
    RichEdit1.SelStart:=N-1; RichEdit1.SelLength:=1;
    RichEdit1.SelAttributes.Color:=clRed;
    RichEdit2.SelStart:=N-1; RichEdit2.SelLength:=1;
    RichEdit2.SelAttributes.Color:=clRed;
   end;
  end;
end;
begin
 with TOpenDialog.Create(nil) do try
  if Execute then begin
   RichEdit1.Lines.LoadFromFile(FileName);
   if Execute then begin
    RichEdit2.Lines.LoadFromFile(FileName);
    CompareFile;
   end;
  end;
 finally
  Free;
 end;
end;

---

Медвежонок Пятачок   (2009-08-12 10:47:00) [3]

которые показывает отличия

тричедит, тсинедит,тмемо, тсинмемо ......

---

Медвежонок Пятачок   (2009-08-12 10:45:00) [4]

нет. нужно чтобы был мир во всем мире.

---

Priest   (2009-08-12 10:44:00) [5]

мне нужно компонентом в свою прогу

---

{RASkov}   (2009-08-12 10:28:00) [6]

> [0] Priest   (12.08.09 10:24)

Это не компонент. Это программа.

---

Наверх