Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.006 c