Сверка значений в 2-х StringGrid-ах

[artemavd]

Слушай, сейчас протестировал и вручную проверил сначала на бумаге результат, а потом сравнил его с тем, что выдала программа. Есть расхождения. Давай я тебе в личку отправлю результаты? Посмотришь, я там выделил что-надо.

[Stilet]

Просто не вижу смысла расписывать тему на семь страниц из-за пустяка.

Просто artemavd как студент, легких путей не ищет ), потому и будет дальше парится и ловить баги вместо того чтоб разобраться с закраской, хотя бы с тем примером что я дал.

[DIgorevich]

Сообщение от artemavd

Слушай, сейчас протестировал и вручную проверил сначала на бумаге результат, а потом сравнил его с тем, что выдала программа. Есть расхождения. Давай я тебе в личку отправлю результаты? Посмотришь, я там выделил что-надо.

Отправляй, конечно.

[artemavd]

Просто artemavd как студент, легких путей не ищет )

Адназначна :D

Отправляй, конечно.

Щас, отсканю и отправлю.

[artemavd]

Добрый день! Переделал код сравнения на работу с sRichEdit`ами. Интересует такой вопрос. Можно ли сделать выделение текста, в процессе сравнения, каким-то цветом? То есть если например в первом списке и во втором есть одинаковые значения, то закрасить эти значения красным цветом, а остальные - зеленым. Причем, важное условие: чтобы курсор в обоих списках перемещался к сравниваемым значениям, т.е. чтобы это было видно пользователю. Вот код сравнения:

procedure TForm1.ActionFirstAnalizExecute(Sender: TObject);
var
 i,i1,j,row: integer;
 ravno:boolean;
begin
  for I := 0 to Form1.sRichEdit3.Lines.Count - 1 do
  Form1.sRichEdit3.Lines.Clear;
  j:=0;
  i:=0;
  i1:=0;
  for i1:=0 to Form1.sRichEdit1.Lines.Count - 1 do //проверяем значения первой
    begin
      ravno:=false;
      for i:=0 to Form1.sRichEdit2.Lines.Count - 1 do   // проверяем значения второой
      begin
        if Form1.sRichEdit2.Lines.Strings[i] = Form1.sRichEdit1.Lines.Strings[i1] then
          begin
            ravno:=true; // если совпадения есть, то ничего не будет в Мемо
          end;
      end;
        if ravno=False then // если есть совпадения, то заносим их
          begin
            Form1.sRichEdit3.Lines.Add(Form1.sRichEdit1.Lines.Strings[i1]);
            inc(j);
          end;
    end;
end;

Можно и без курсора, просто интересно чисто технически как такое можно сделать...

[Аватар]

1. Цвет - задать
RichEdit.SelStart - позиция в тексте, с которой менять цвет текста
RichEdit.SelLength - кол-во символов
RichEdit.SelAttributes.Color - цвет текста

2. Синхронность курсора
Ловить перемещение текстового курсора (наверно с помощью OnKeyPress). Если нет выделенного текста, то SelStart - позиция курсора в тексте. Иметь в памяти таблицу соответствия смещений и длин нужных фрагментов текста в двух RichEdit-ах. Если соответствие найдено, то во втором RichEdit-е менять SelStart в соответствии с таблицей. Как-то так, очень муторно

add Не обратил внимания, что в процессе сравнения. Если так, то второе гораздо проще - управлять SelStart-ом второго RichEdit-а

[artemavd]

Если так, то второе гораздо проще - управлять SelStart-ом второго RichEdit-а

Можешь помочь с этим примером?

[Аватар]

Код для Д7

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const cWords1: array[1..10] of String = (
               'Паук','Яблоня','Кружка','Пиво-О-О','Таракан',
               'Слово','Кровать','Фантомас','Ведьма','Иго');
      cWords2: array[1..11] of String = (
               'Стакан','Word','Фантомас','Технология X','Кукушка',
               'Степь','Кровать1','паук','СССССС','Иго',
               'YYYYYYYYYY');
var i: Integer;
begin
  RichEdit1.Clear;
  for i:=Low(cWords1) to High(cWords1) do RichEdit1.Lines.Add(cWords1[i]);
  RichEdit1.SelStart:=0;
  RichEdit1.ReadOnly:=True;
  RichEdit1.HideSelection:=False;
  RichEdit2.Clear;
  for i:=Low(cWords2) to High(cWords2) do RichEdit2.Lines.Add(cWords2[i]);
  RichEdit2.SelStart:=0;
  RichEdit2.ReadOnly:=True;
  RichEdit2.HideSelection:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i1,i2,xPos1,xPos2: Integer;
begin
  {Подготовка RichEdit1}
  RichEdit1.SelStart:=0;
  RichEdit1.SelLength:=Length(RichEdit1.Text);
  RichEdit1.SelAttributes.Color:=RichEdit1.Font.Color;
  RichEdit1.SelStart:=0;
  {Подготовка RichEdit2}
  RichEdit2.SelStart:=0;
  RichEdit2.SelLength:=Length(RichEdit2.Text);
  RichEdit2.SelAttributes.Color:=RichEdit2.Font.Color;
  RichEdit2.SelStart:=0;
  {Поиск}
  xPos1:=0;
  for i1:=0 to RichEdit1.Lines.Count-1 do begin
    xPos2:=0;
    for i2:=0 to RichEdit2.Lines.Count-1 do begin
      if AnsiSameText(RichEdit1.Lines.Strings[i1],RichEdit2.Lines.Strings[i2]) then begin
        RichEdit1.SelStart:=xPos1;
        RichEdit1.SelLength:=Length(RichEdit1.Lines.Strings[i1]);
        RichEdit1.SelAttributes.Color:=clRed;
        RichEdit2.SelStart:=xPos2;
        RichEdit2.SelLength:=Length(RichEdit2.Lines.Strings[i2]);
        RichEdit2.SelAttributes.Color:=clRed;
        Sleep(1000); //Пауза в 1сек чтобы успеть что-то увидеть
        RichEdit1.SelStart:=xPos1;
        RichEdit2.SelStart:=xPos2;
        Break;
      end;
      Inc(xPos2,Length(RichEdit2.Lines.Strings[i2])+2);
    end;
    Inc(xPos1,Length(RichEdit1.Lines.Strings[i1])+2);
  end;
  RichEdit1.SelStart:=0;
  RichEdit2.SelStart:=0;
end;

end.