в коде ошибочка, нужно исправить на //// 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 ищет схожую часть в строке
Спасибо, с наступающим новым годом 🎄
С наступающим вас
I appreciate!😬
Желаю удачи) С наступающим Новым годом !
С новым годом, может он лучше будет чем прежде)))
в коде ошибочка, нужно исправить на
////
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 ищет схожую часть в строке
почему так пишите код? Ужасно смотреть, то-есть оформление кода ужасно, в Delphi же есть Format Project Source
Мне кажется что просто и удобно смотреть, ваш код легче читается? Покажите отрезок