Скрипт EngToRus

[Fer123]

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

Essential, переводить будет всё, но только если всё сообщение на английской раскладке набрано, если хоть один символ русский то переводить не будет...

Да. Я сделал это для того чтобы не обрабатывало строки в которых есть и русский и английский текст, воизбежании того что пользователь мог написать чтото на английском и русском правильно в одной строке. А проверить правильно ли написано то или иное слово невозможно.
xkor
Что значит "структурированный код" объясни плз.

[xkor]

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

Что значит "структурированный код" объясни плз.

это значит что вместо такого:

function ConvertNeeded(tmpstr : string) : boolean;
var i,countru,counteng:integer;
begin
countru:=0;
counteng:=0;
for i:=1 to length(tmpstr) do
begin
if tmpstr[i] in ['а'..'я','А'..'Я'] then inc(countru);
if tmpstr[i] in ['a'..'z','A'..'Z'] then inc(counteng);
end;
result:=true;
if (countru>0) and (counteng>=0) then result:=false;
end;

пишут так:

function ConvertNeeded(tmpstr: string): boolean;
var 
  i, countru, counteng: integer;
begin
  countru:=0;
  counteng:=0;
  for i:=1 to length(tmpstr) do begin
    if tmpstr[i] in ['а'..'я','А'..'Я'] then inc(countru);
    if tmpstr[i] in ['a'..'z','A'..'Z'] then inc(counteng);
  end;
  result:=true;
  if (countru>0) and (counteng>=0) then result:=false;
end;