Программа выдает ошибку при работе

[T-dayne]

программа должна модифицировать текст, введеный в мемо1 с помощью словаря settings.ini, и записать новый текст в мемо2. При компиляции ошибок нету, но при вводе слова и нажатии на кнопку вылетает с ошибкой.

procedure TForm1.Button1Click(Sender: TObject);
var
p,i,setarr: integer;
tmp, modif: string;
begin
setarr:=0;
for i:=0 to memo1.lines.Count-1 do
begin
//замена знаков на знаки с пробелами
tmp:=memo1.Lines[i];
tmp:=stringreplace(tmp,',',' ,',[rfReplaceAll]);
tmp:=stringreplace(tmp,'!',' !',[rfReplaceAll]);
tmp:=stringreplace(tmp,'?',' ?',[rfReplaceAll]);
tmp:=stringreplace(tmp,'.',' .',[rfReplaceAll]);
// начали разбиение на слова
while length(tmp)>0 do
begin
inc(setarr);// увеличиваем длину массива на 1
p:=pos(tmp,'');
SetLength(words,setarr);
words[i]:=copy(tmp,1,p);
delete(tmp,1,p+1);
end;
//заполнили массив словами и символами разделения
end;


//получаем измененные слова в строку
for i:=0 to setarr do
begin
modif:=modif+translate(words[i]);
end;

end;

function TForm1.translate(slovo: string): string; // функция перевода слов
var
changeword: string;
begin
tr:=tinifile.Create('settings.ini');
changeword:=tr.ReadString('translate', slovo, slovo); //ищем в словаре слово
result:=changeword;
end;

Если у кого-то есть время или желания, пожалуйста, помогите разобраться Естесственно с меня +

[fbus]

во-первых если что-то создаешь, особенно инишник, то после обращения надо сделать

tr.free;
buf.free;

навскидку все, попробуй поправить, если будет ошибка еще поглядим

[T-dayne]

исправил... ошибка не в этом, при вылете ошибки не показывает ерроры в коде, показывает ошибку в строчке

Application.Run;

в коде самого проекта.

[evg_m]

вылетает с ошибкой.

КАКАЯ? ГДЕ?
приведение места и текста ошибки позволяет значительно сократить время получения ответа.

p:=pos(tmp,'');
далее нет проверки полученного значения p(вдруг в строке там нет того что нам надо)
а при условии ПОИСКА в ПУСТОЙ СТРОКЕ '' (по синтаксису это строка где ищем)
да и поиск пустой строки pos('',tmp) тоже был бы не очень понятен

[Serebro]

Для поиска ошибки можно вставить побольше операторов вывода в код программы.

[T-dayne]

да и поиск пустой строки pos('',tmp) тоже был бы не очень понятен

почему? это мне и нужно, посчитать количество символов от начала до конца слова.

далее нет проверки полученного значения p(вдруг в строке там нет того что нам надо)
а при условии ПОИСКА в ПУСТОЙ СТРОКЕ '' (по синтаксису это строка где ищем)

В программу я ввожу такой текст где это исключено.

Насчет ошибки... сомневаюсь что это много сообщит Вам, но все же

[fbus]

поставь брейкпоинты (F5) на событие нажатия на кнопку, потом жми F8 пока не вылезет ошибка, когда вылезет запомни на какой строчке это случилось. она и виновата

[eoln]

Сообщение от T-dayne

inc(setarr);// увеличиваем длину массива на 1
p:=pos(tmp,'');
SetLength(words,setarr);
words[i+1]:=copy(tmp,1,p);

Индексация динамических массивов начинается с нуля.
SetLength(words,setarr); при первом проходе длина установится равной один, что означает примерно следующее word: array[0..0] of string[255]
Эта команда words[i+1] обращается к word[1] при первой итерации, а у тебя можно только word[0].
Убирай "+1"

[evg_m]

пустая строка всегда найдется по сути это промежуток нулевой длины меду буквами который всегда есть в любой строке

роs('','здесь_может быть_любой_текст') ВСЕГДА =1

посчитать количество символов от начала до конца слова.

length('слово')
последний - первый

надо искать ограничители слова пробелы
k1:=posex(' ',tst,1);
k2:=posex(' ',tst.k1+1);
k2-k1-1 длина

[T-dayne]

eoln
После убирания "+1" и при нажатии на кнопку, программа впадает в ступор, грузится процессор и ежесекундно пожирается память