Форум: "Начинающим";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Priest   (2009-08-12 10:24) [0]

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

---

← →
{RASkov} ©   (2009-08-12 10:28) [1]

> [0] Priest   (12.08.09 10:24)

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

---

← →
Priest   (2009-08-12 10:44) [2]

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

---

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

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

---

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

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

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

---

← →
{RASkov} ©   (2009-08-12 10:54) [5]

для текстовых файлов малого размера можно нечто вот такое сделать:
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;

---

← →
Amoeba ©   (2009-08-12 15:25) [6]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c