Урок на делфи. 85 Количество повторений цифр в файле

Задание на Delphi. Количество одинаковых строк в файле
#delphi
для выполнение задачи использовал компоненты и функции Button1, memo

[@user-bt6lt3cz6b]

Спасибо, с наступающим новым годом 🎄

[@KODnyj_Ruslan]

С наступающим вас

[@delphiforschools6843]

I appreciate!😬

[@user-du2mf4zj1p]

Желаю удачи) С наступающим Новым годом !

[@KODnyj_Ruslan]

С новым годом, может он лучше будет чем прежде)))

[@KODnyj_Ruslan]

в коде ошибочка, нужно исправить на
////
for j := 0 to Memo1.Lines.Count-1 do
begin
if pos (' '+s+' = ',Memo1.Lines[j])>0 then
metka:=true;
end;
if (metka=false) then
Memo1.Lines.Add(' '+s+' = '+IntToStr(c)) ;
//////
иначе цифры типа "2 = " будут считаться равными с "12 = " "22 = ", так как pos ищет схожую часть в строке

[@X0KI3]

почему так пишите код? Ужасно смотреть, то-есть оформление кода ужасно, в Delphi же есть Format Project Source

[@KODnyj_Ruslan]

Мне кажется что просто и удобно смотреть, ваш код легче читается? Покажите отрезок