Konverzija latince u cirilicu u TMemo?

Konverzija latince u cirilicu u TMemo? 08.05.2007. u 20:48 · pre 237 meseci #1

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?

Re: Konverzija latince u cirilicu u TMemo? 09.05.2007. u 00:35 · pre 237 meseci #2

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.

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Re: Konverzija latince u cirilicu u TMemo? 09.05.2007. u 00:46 · pre 237 meseci #3

> 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;

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Konverzija latince u cirilicu u TMemo? 09.05.2007. u 12:00 · pre 237 meseci #4

@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?

Re: Konverzija latince u cirilicu u TMemo? 09.05.2007. u 12:39 · pre 237 meseci #5

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.

Re: Konverzija latince u cirilicu u TMemo? 09.05.2007. u 13:31 · pre 237 meseci #6

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?

Re: Konverzija latince u cirilicu u TMemo? 09.05.2007. u 15:16 · pre 237 meseci #7

> 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.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Forum kao aplikacija na telefonu

Srodne teme