сравнение содержимого Memo и Edit

[Euforia_PZAS09_1]

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

миллионный вариант кода((. при компиляции возникают такие ошибки:
[Warning] Unit1.pas(110): Variable 'j' might not have been initialized
[Warning] Unit1.pas(110): Variable 'i' might not have been initialized
при запуске:Project Game.exe raised exception class EAccess violation with message 'EAccess violation at address 00469C18 in module 'Game.exe'. Read of address FFFFFFFF'.

подскажите, пожалуйста, как правильно реализовать сравнение

procedure TGameForm.Edit1Change(Sender: TObject);
var i,j:integer;
begin
EdStr:=Edit1.Text;
for i:=0 to Memo1.Lines.Count-1 do
begin
if Ord(Memo1.Lines[i][j])<>Ord(EdStr[i]) then
inc(Error);//Error - глобальная переменная
end;

[Прик]

uses Math;
...
procedure TForm1.Edit1Change(Sender: TObject);
var
  i : integer;
  EdStr, MStr : string;
begin
  EdStr := Edit1.Text;
  MStr := StringReplace(Memo1.Lines.Text, #13#10, ' ', [rfReplaceAll]);
  for I := 1 to Min(Length(MStr), Length(EdStr)) do
    if MStr[I] <> EdStr[I] then
      Inc(Error);
end;

[mihali4]

Варнинги - это не ошибки, а предупреждения.
Вам чистым аглицким языком компилятор пишет, что переменные I,J могут быть непроинициализированы.
Что, кстати, у вас и происходит... Какое значение имеет переменная J ?
И перестаньте вы использовать в качестве имен переменных ключевые слова...
Неужели фантазии не хватает придумать нечто отличное от "Error"?

[Прик]

Да вы знаете, нет такого ключевого слова Error, если под "ключевыми" понимаются зарезервированные слова (reserved words) в Delphi.

[mihali4]

А если заглянуть в штатный хэлп ?
Например :

The following code opens MediaPlayer1. If an exception occurs, a message window displays the error number and string.

procedure TForm1.BitBtn1Click(Sender: TObject);

var
MyErrorString: String;
begin
try
MediaPlayer1.Open;
except
MyErrorString := 'ErrorCode: ' + IntToStr(Error) + #13#10;
MessageDlg(MyErrorString + MediaPlayer1.ErrorMessage, mtError, [mbOk], 0);
end;

end;

Или просто взять в хэлпе справку по слову "Error" ?

[Euforia_PZAS09_1]

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

И перестаньте вы использовать в качестве имен переменных ключевые слова...
Неужели фантазии не хватает придумать нечто отличное от "Error"?

зачем что-то другое? если там, действительно, хранится количество ошибок.а так пожалуйста:AErrCount, AErrorSum, AError...нужны будут ещё имена переменных - пишите.


и я вас не с "Error" прошу помочь, то мелочи.

[Serge_Bliznykov]

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

и я вас не с "Error" прошу помочь

то, что Вы написали - в корне неверно. "в корне" - это значит на уровне алгоритма...

Тогда давайте рассмотрим поподробнее на примерах, что Вы хотите получить.
Всего пара маленьких примеров. Вы считаете количество неправильно введённых символов (и объясняете, как подсчитали) и мы с Вами вместе придумываем алгоритм (+ реализация)
пример 1.
в Edit: Молоко
в Memo (3 строки):
Лом
Бом
Дом
Сколько ошибок?

Пример 2.
в Edit: паап пишетт стену
в Memo (2 строки):
Мама Пишет Письмо
Папа Красит Стену
Сколько ошибок?

можете собственные примеры привести.. Это только лучше будет. Ведь Вам, как разработчику, должны быть лучше известны нюансы и граничные проверки...

просто хочется понять, что Вам собственно нужно...

[Прик]

mihali4, просто интересно ваше мнение о причинах "запрещения" использования слова Error в качестве переменной в своих приложениях.
В зарезервированных словах оно отсутствует. Следовательно, компилятор разрешит его применение. Если это слово используется внутри какого-то класса, то тоже не криминал, если его применять как переменную вне этих объектов - мало ли у меня классов с одинаковыми наименованиями полей.
Опять же, что за понятие "ключевое слово" в Delphi? Может мы с вами имеем ввиду разные вещи?

Не думаю, что спонтанно возникшая дискуссия - словофлудие. Проблема видимости переменных достаточно принципиальная, особенно для новичков.
Может быть слепить из нее другую тему? (виноват, до оффтопа свалился)

[Euforia_PZAS09_1]

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

то, что Вы написали - в корне неверно

простите, я просто уже не в состоянии что-то объяснять. если вы думаете, что я просто сижу и жду пока кто-то напишет правильный код, то вы очень ошибаетесь. я на это даже не смею надеяться.

вот примерно как-то так:

procedure TGameForm.Edit1Change(Sender: TObject);
var i,j,len:integer;
begin
EdStr:=Edit1.Text;
for i:=0 to ? do //вот тут понятия не имею до скольки. возможно, //Memo1.Lines.Count-1
begin
    len:=length(Memo1.Lines[i]);
    if length(EdStr)<len then len:=length(EdStr);
    for j:=1 to len do
         if (Memo1.Lines[i][j])<>(EdStr[j]) then inc(AError);
 end;

правда тогда не понятно что хранит AError

3. Не флудить. Флудом (пустой болтовней) считается все, не относящееся к теме. Здесь не чат, а форум серьезно увлеченных людей.
К флуду относится также:
- необоснованное (не требующееся по смыслу) цитирование предыдущего поста;
- оверквотинг (избыточное цитирование). При цитировании имеет смысл оставлять в цитате только тот текст, который имеет непосредственное отношение к вашему ответу.
- размещение своих постов подряд друг за другом - пользуйтесь кнопкой "Правка" для изменения своего сообщения.
За флуд - автор поста получит нарушение №1 - "Флуд" и 2 очка штрафа.

[Euforia_PZAS09_1]

благодарю за помощь, надеюсь, вам помогают лучше.