Перевод текста

← →
Delphin © (2003-10-13 19:37) [0]

Hi All! у меня снова проблема: возникла необходимость перевода символов например "V" Надо перевести в "М" и т.д, Я составил небольшой код, только он не совсем корректно работает, слышал, что подобные действия делаются через массивы. Народ, поскажите пожалуйста, что в этом коде не так, или дайте какую-нить документацию по массивам.

Form1: TForm1;
A,B,C:String;
I:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Repeat
Edit1.SelStart:=0;
Edit1.SelLength:=Edit1.GetTextLen;
B:=Edit1.SelText;
A:=A+Copy(B,1,I);
Delete(A,1,i-1);
I:=I+1;
IF A="a" Then A:=A+"Ф";
IF A="A" Then A:=A+"ф";
IF A="b" Then A:=A+"и";
IF A="B" Then A:=A+"И";
IF A="c" Then A:=A+"с";
IF A="C" Then A:=A+"С";
Edit2.Text:=A;
Until I=Edit1.GetTextLen;
end;

end.

← →
Dimaz-z © (2003-10-13 19:44) [1]

Посмотри в единой базе процедур и функций для Delphi - http://delphibase.endimus.ru/. Там есть функция переврда в транслит, тебе надо будет в ней только значения в массивах поменять!

Огромное, человеческое спасибо

Перевод текста Найти похожие ветки