Access violation в цикле

[kostya67]

В чем может быть проблема, выскакивает access violation на проверке if
access violation at address 00455567 in module

Когда проверяю просто вот так строку без цикла то работает

 for i:=0 to test do
    begin
     tester:=form1.Memo1.Lines[i];
     If tester[Length(tester)] <> ' ' then
     begin
       form1.Memo1.Lines[i]:=form1.Memo1.Lines[i]+' ';
     end;
    end;

[ДралсяСошибками]

for i:=0 to Memo1.Lines.Count-1 do

адский код

[xxbesoxx]

1) Не очень понятно что вы делайте
2) Я думаю что вы обращайтесь переменная который еще не объявлен

 Var i: integer;
      test: string;
begin
..........................
..........................
.......... здесь ваши код. Но, вы лучше скажите что вы хотите делать ?
end

[kostya67]

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

1) Не очень понятно что вы делайте
2) Я думаю что вы обращайтесь переменная который еще не объявлен

 Var i: integer;
      test: string;
begin
..........................
..........................
.......... здесь ваши код. Но, вы лучше скажите что вы хотите делать ?
end

Есть мемо с таким текстом

Текст
пустая строка
текст
текст
пустая строка
текст

Я выдрал диапозон где текст в две строчки

Теперь пытаюсь проверить есть ли пробел в конце и добавить если нет

[xxbesoxx]

Проверите так должен работать ?

procedure TForm1.Button1Click(Sender: TObject);
 Var i: integer;
    tester: string;
begin
 for i:=0  to Memo1.Lines.Count-1 do
    begin
     tester:= Memo1.Lines.Text;
     If tester[Length(tester)] <> '' then
     begin
       Memo1.Lines[i]:=form1.Memo1.Lines[i] + '  ';
       Memo1.SetFocus;
     end;
    end;

end;

end.

[Serge_Bliznykov]

If tester[Length(tester)] <> ' ' then

не очень желательно лезть в пустую строчку внутрь.

Теперь пытаюсь проверить есть ли пробел в конце и добавить если нет

kostya67, а в пустые строчки тоже нужно пробел в конец добавить?


Ну, если я правильно понял задачу,
то я бы предложил такой вариант решения:

for i:=0 to form1.Memo1.Lines-1 do
     if Trim(form1.Memo1.Lines[i])<>'' then begin {исключили пустые строки}
         tester:=form1.Memo1.Lines[i];
         If tester[Length(tester)] <> ' ' then
            form1.Memo1.Lines[i]:= form1.Memo1.Lines[i]+' ';
     end;