Транслит текста

[Mrsqler]

Тут на форуме,нашел тему о переводе с англ на рус язык.

const
 L: array[0..25] of char = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l',
   'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z');
 K: array[0..25] of char = ('ф', 'и', 'с', 'в', 'у', 'а', 'п', 'р', 'ш', 'о', 'л', 'д',
   'ь', 'т', 'щ', 'з', 'й', 'к', 'ы', 'е', 'г', 'м', 'ц', 'ч', 'н', 'я');
var
 i,j: byte;
begin
 for i := 0 to 25 do
 begin
  //Проверяем в нижнем регистре
  if Memo1.Text[1] = L[i] then
  begin
   Memo2.Text := K[i];
   Break;
  end;
  //И в верхнем тоже


  if Memo1.Text[1] = AnsiUpperCase(L[i]) then
  begin
   Memo2.Text := AnsiUpperCase(K[i]);
   Break;
  end;
 end;
end;

Но он переводит только первую букву.Т.е,если ввести ghdtn ,то он выведет просто 'п',а хотелось чтобы появилось полное слово 'привет'.Это тоже,как-то через цикл нужно делать?Никак понять не могу(

[evg_m]

1. оборачиваем перевод символа в функцию ( просто использовал приведенный с минимальными корректировками)

function Translit (chartxt: char): char;
var
 i,j: byte;
begin
  result:=charxt; //если вдруг нам подсунут что другое (цифру/русскую букву и т.д.) вернем ее же
 for i := 0 to 25 do
 begin
  //Проверяем в нижнем регистре
  if chartxt = L[i] then
  begin
   result := K[i];
   Break;
  end;
  //И в верхнем тоже


  if chartxt = AnsiUpperCase(L[i]) then
  begin
    result := AnsiUpperCase(K[i]);
   Break;
  end;
 end;

2. организуем работу с Memo

var
  s: string;
  j: integer;
s:=Memo1.text; //считываем весь текст в переменную
//не надо много раз мучить бедный Memo
for j:=1 to length(s) do 
  s[j]:=Translit( s[j]); // с помощью нашей функции переводим каждый символ
end;
Memo2.text:=s; //смотрим результат

[Serge_Bliznykov]

посмотрите, вот ТУТ я выкладывал свой вариант перевода в транслит..

[Mrsqler]

Вот попробовал

function Translit (chartxt: char): char;
var
 i,j: byte;
 L:array of char;
 K:array of char;
begin
  result:=chartxt; //если вдруг нам подсунут что другое (цифру/русскую букву и т.д.) вернем ее же
 for i := 0 to 25 do
 begin
  //Проверяем в нижнем регистре
  if chartxt = L[i] then
  begin
   result := K[i];
   Break;
  end;
  //И в верхнем тоже


  if chartxt = AnsiUpperCase(L[i]) then
  begin
    result := AnsiUpperCase(K[i]);
   Break;
  end;
 end;

 var
  s: string;
  j: integer;
s:=Memo1.text; //считываем весь текст в переменную
//не надо много раз мучить бедный Memo
for j:=1 to length(s) do
  s[j]:=Translit( s[j]); // с помощью нашей функции переводим каждый символ
end;
Memo2.text:=s; //смотрим результат
end;

Появляется ошибка
[Pascal Error] Unit1.pas(53): E2010 Incompatible types: 'Char' and 'string'

[evg_m]

Появляется ошибка
[Pascal Error] Unit1.pas(53): E2010 Incompatible types: 'Char' and 'string'

  if chartxt = AnsiUpperCase(L[i]) then
  begin
    result := AnsiUpperCase(K[i]) [1]; //надо добавить; 
   Break;
  end;

[Mrsqler]

А тут вроде лишний var есть.на него ругается.Убрал.После этого появилась другая ошибка [Pascal Error] Unit1.pas(71): E2029 Declaration expected but identifier 'Memo2' found
В uses вроде всё объявил.Что ему не нравится?Вот полный код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Memo2Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

function Translit (chartxt: char): char;
var
 s: string;

 i,j: byte;
 L:array of char;
 K:array of char;
begin
  result:=chartxt; //если вдруг нам подсунут что другое (цифру/русскую букву и т.д.) вернем ее же
 for i := 0 to 25 do
 begin
  //Проверяем в нижнем регистре
  if chartxt = L[i] then
  begin
   result := K[i];
   Break;
  end;
  //И в верхнем тоже


  if chartxt = AnsiUpperCase(L[i]) then
  begin
    result := AnsiUpperCase(K[i]) [1];
   Break;
  end;
 end;



s:=Memo1.text; //считываем весь текст в переменную
//не надо много раз мучить бедный Memo

for j:=1 to length(s) do
     s[j]:=Translit( s[j]); // с помощью нашей функции переводим каждый символ
end;

Memo2.Text:=s; //смотрим результат
end;

end.

[evg_m]

unction Translit (chartxt: char): char;
var
 i,j: byte;
 L:array of char;
 K:array of char;
begin
  result:=chartxt; //если вдруг нам подсунут что другое (цифру/русскую букву и т.д.) вернем ее же
 for i := 0 to 25 do
 begin
  //Проверяем в нижнем регистре
  if chartxt = L[i] then
  begin
   result := K[i];
   Break;
  end;
  //И в верхнем тоже


  if chartxt = AnsiUpperCase(L[i]) then
  begin
    result := AnsiUpperCase(K[i]);
   Break;
  end;
 end;

end;// была забыта 

for j:=1 to length(s) do
     s[j]:=Translit( s[j]); // с помощью нашей функции переводим каждый символ
//  end; //здесь не нужно или же добавить begin в for

[Mrsqler]

По-моему это бесполезно)
Теперь ему переменная s не нравится.
[Pascal Error] Unit1.pas(67): E2029 Declaration expected but identifier 's' found
Всё объявлено в начале...

[evg_m]

procedure TForm1.Button1Click(Sender: TObject);

function Translit (chartxt: char): char;
var
 s: string;
,,,,,,

procedure  .....
..........
function Translit (chartxt: char): char;
//var
// s: string;
.........
end;

var
  s: string;
begin
  s:=...........
end;

[Mrsqler]

Опять не то)Всем спасибо.Тему можно закрывать)