[ inherited @ 08.05.2007. 19:48 ] @
Kako bih mogao neki text koji je napisan latinicom u TMemo, jednostavno kovertovati u cirilicu.
Nesto tipa:
Code:

 for i:= Memo1.Lines.Count-1 do
  begin
   if 'latinicno slovo -a' then 'cirilicno-a';
   if 'latinicno slovo -b' then 'cirilicno-b';
   //za sva slova
  end;   

i tako da se prodje kroz ceo TMemo?
[ Nemanja Avramović @ 08.05.2007. 23:35 ] @
Ja bih koristio TNTMemo jer on podržava unicode karaktere (naša slova) i neku proceduru kao recimo StringReplace i tako bih menjao slovo po slovo.
[ savkic @ 08.05.2007. 23:46 ] @
> Kako bih mogao neki text koji je napisan latinicom u TMemo, jednostavno kovertovati u cirilicu.


Code:

function ConvertToCirillic(const AValue: string): string;
var
  i: Integer;
begin
  Result := AValue;

  for i := 1 to Length(Result) do
  begin
    case Result[i] of
      'A': Result[i] := #192;
      'B': Result[i] := #193;
      'C': Result[i] := #214;
      'D': Result[i] := #196;
      'E': Result[i] := #197;
      'F': Result[i] := #212;
      'G': Result[i] := #195;
      'H': Result[i] := #213;
      'I': Result[i] := #200;
      'J': Result[i] := #163;
      'K': Result[i] := #202;
      'L': Result[i] := #203;
      'M': Result[i] := #204;
      'N': Result[i] := #205;
      'O': Result[i] := #206;
      'P': Result[i] := #207;
      'R': Result[i] := #208;
      'S': Result[i] := #209;
      'T': Result[i] := #210;
      'U': Result[i] := #211;
      'V': Result[i] := #194;
      'Z': Result[i] := #199;

      'È': Result[i] := #215;
      'Æ': Result[i] := #142;
      'Š': Result[i] := #216;
      'Ð': Result[i] := #128;
      'Ž': Result[i] := #198;

      'W': Result[i] := #194;
      'Y': Result[i] := #200;

      'a': Result[i] := #224;
      'b': Result[i] := #225;
      'c': Result[i] := #246;
      'd': Result[i] := #228;
      'e': Result[i] := #229;
      'f': Result[i] := #244;
      'g': Result[i] := #227;
      'h': Result[i] := #245;
      'i': Result[i] := #232;
      'j': Result[i] := #188;
      'k': Result[i] := #234;
      'l': Result[i] := #235;
      'm': Result[i] := #236;
      'n': Result[i] := #237;
      'o': Result[i] := #238;
      'p': Result[i] := #239;
      'r': Result[i] := #240;
      's': Result[i] := #241;
      't': Result[i] := #242;
      'u': Result[i] := #243;
      'v': Result[i] := #226;
      'z': Result[i] := #231;

      'è': Result[i] := #247;
      'æ': Result[i] := #158;
      'š': Result[i] := #248;
      'ð': Result[i] := #144;
      'ž': Result[i] := #230;

      'w': Result[i] := #226;
      'y': Result[i] := #232;
    end;
  end;
end;
[ inherited @ 09.05.2007. 11:00 ] @
@savkic
Verujem da je funkcija dobra,ali kad u Memo upisem neki latinicni text, nista se ne desava.
Mozda je problem u pozivu funkcije? Kako bih je pozvao koristeci Memo komponentu?
[ X Files @ 09.05.2007. 11:39 ] @
Citat:

Mozda je problem u pozivu funkcije?

Pa kako si je pozvao?

Na osnovu prototipa:
function ConvertToCirillic(const AValue: string): string;
...vidi se da se funkcija VRAĆA rezultat tipa STRING, i da ono što si prosledio ne sme da se menja (CONST).

Shodno tome, verovatno ovako (za ceo tekst):

Code:

Memo1.Text := ConvertToCirillic( Memo1.Text );

ili red po red:
Code:

for i:=0 to Memo1.Lines.Count-1 do
   Memo1.Lines.Strings[i] := ConvertToCirillic( Memo1.Lines.Strings[i] );

... ako nisam omašio indekse početka i kraja za TMemo u Delphiju.
[ inherited @ 09.05.2007. 12:31 ] @
Uspeo sam ovako:
Code:

 Memo1.Font.Charset:= RUSSIAN_CHARSET;
 Memo1.Text := ConvertToCirillic( Memo1.Text );

Sad, vratiti u latinicu bi islo kontra od toga!?! Napraviti funkciju koja cirilicna slova
prevodi u latinicu, da li kodovi(#NekiBroj) iz ConvertToCirillic funcije ostaju isti, samo se slova menjaju?
[ savkic @ 09.05.2007. 14:16 ] @
> Sad, vratiti u latinicu bi islo kontra od toga!?! Napraviti funkciju koja cirilicna slova
> prevodi u latinicu, da li kodovi(#NekiBroj) iz ConvertToCirillic funcije ostaju isti, samo se slova menjaju?

Samo treba da zameniš levu i desnu stranu. Možda je prilikom Copy/Paste u onom primeru došlo do promene nekih latiničnih slova pa proveri da li se konvertuju sva naša slova.