Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Konverzija latince u cirilicu u TMemo?

[es] :: Pascal / Delphi / Kylix :: Konverzija latince u cirilicu u TMemo?

[ Pregleda: 2032 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

inherited
Novi Sad

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



Profil

icon Konverzija latince u cirilicu u TMemo?08.05.2007. u 19:48 - pre 177 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ć
Software architect
Tap medical
Beograd, Srbija

Član broj: 32202
Poruke: 4385
91.150.105.*

Sajt: https://avramovic.info


+45 Profil

icon Re: Konverzija latince u cirilicu u TMemo?08.05.2007. u 23:35 - pre 177 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: 2680



+76 Profil

icon Re: Konverzija latince u cirilicu u TMemo?08.05.2007. u 23:46 - pre 177 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;

 
Odgovor na temu

inherited
Novi Sad

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



Profil

icon Re: Konverzija latince u cirilicu u TMemo?09.05.2007. u 11:00 - pre 177 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: 4890
*.tekostolac.co.yu.

Jabber: xfiles@elitesecurity.org


+633 Profil

icon Re: Konverzija latince u cirilicu u TMemo?09.05.2007. u 11:39 - pre 177 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

icon Re: Konverzija latince u cirilicu u TMemo?09.05.2007. u 12:31 - pre 177 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: 2680



+76 Profil

icon Re: Konverzija latince u cirilicu u TMemo?09.05.2007. u 14:16 - pre 177 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

[es] :: Pascal / Delphi / Kylix :: Konverzija latince u cirilicu u TMemo?

[ Pregleda: 2032 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.