[es] - Konverzija latince u cirilicu u TMemo?

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.exe042.net.

Profil

Konverzija latince u cirilicu u TMemo?

^{08.05.2007. u 19:48 - pre 206 meseci}

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?

Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
91.150.105.*

Sajt: https://avramovic.info

+46 Profil

Re: Konverzija latince u cirilicu u TMemo?

^{08.05.2007. u 23:35 - pre 206 meseci}

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.

Laravel Srbija.

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Konverzija latince u cirilicu u TMemo?

^{08.05.2007. u 23:46 - pre 206 meseci}

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

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

Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.exe042.net.

Profil

Re: Konverzija latince u cirilicu u TMemo?

^{09.05.2007. u 11:00 - pre 206 meseci}

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

Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4902
*.tekostolac.co.yu.

Jabber: xfiles@elitesecurity.org

+638 Profil

Re: Konverzija latince u cirilicu u TMemo?

^{09.05.2007. u 11:39 - pre 206 meseci}

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.

Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.exe042.net.

Profil

Re: Konverzija latince u cirilicu u TMemo?

^{09.05.2007. u 12:31 - pre 206 meseci}

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?

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Konverzija latince u cirilicu u TMemo?

^{09.05.2007. u 14:16 - pre 206 meseci}

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

Odgovor na temu