Ascii vrednost nekog karaktera u textuPravim program koji prođe kroz text i kad nadje neko slovo zameni ga nekim html kodom.
Napravio sam program koji menja predefinisano slovo sa nekim # kodom, sa latinicnim slovina radi OK, ali sada trebam da napunim šta menja sa cime. Nije to ništa promenljivo pa mi netreba baza za to mislim da fiksiram u Source Codu šta se menja sa cime. Ali čim sam poceo Ruska i Grcka slova da stavljam u case samo mi upitnici ispadaju.
Kako mogu u Delphi 5 editoru da ukuckam
Code:
case Memo1.Text[counterX] of
'A': Memo2.Text := Memo2.Text + 'А';
'B': Memo2.Text := Memo2.Text + 'Б';
'V': Memo2.Text := Memo2.Text + 'В';
...
else
Memo2.Text := Memo2.Text + Memo1.Text[counterX];
end;
case Memo1.Text[counterX] of
'A': Memo2.Text := Memo2.Text + 'А';
'B': Memo2.Text := Memo2.Text + 'Б';
'V': Memo2.Text := Memo2.Text + 'В';
...
else
Memo2.Text := Memo2.Text + Memo1.Text[counterX];
end;
kad ovo kopiram u Delphijev editor dobijam sledeće:
Code:
case Memo1.Text[counterX] of
'?': Memo2.Text := Memo2.Text + 'А';
'?': Memo2.Text := Memo2.Text + 'Б';
'?': Memo2.Text := Memo2.Text + 'В';
...
else
Memo2.Text := Memo2.Text + Memo1.Text[counterX];
end;
case Memo1.Text[counterX] of
'?': Memo2.Text := Memo2.Text + 'А';
'?': Memo2.Text := Memo2.Text + 'Б';
'?': Memo2.Text := Memo2.Text + 'В';
...
else
Memo2.Text := Memo2.Text + Memo1.Text[counterX];
end;
Probao sam sa Ord funkcijom da uzmem vrednost slova ali mi vrati vrednost tastera na tastaturi i za neko Englesko, Rusko, Grcko slovo da mi vrati istu vrednost. Da li jedino tako mogu da u zavisnosti od jezika i prepoznatog tastera napravim ovaj case?!
Kako da ovo resim - nesmem ni da pomislim kako će da izgleda tek sa Grckim, Svedskim, Thai i ostalim spec slovima :(
Hvala unapred
Pozdrav
LJUBA
LJUBA
