Orosz vagy angol betűket egymás után

előző ◈ a következő

Orosz vagy angol betűk a húr?

Szia Mester! :)
ott Edit1. Azt flip angol betűkkel orosz és fordítva!
akasztani két eljárás egyetlen gombot kell meghatározni, hogy melyik betű Edit1 orosz vagy angol?
Próbáltam keresztül inttostr (kulcs), hogy kiadja ugyanazt a hogy az orosz Engl :(
Mit kell tenni?


> Várj egy alapvető szükséglet, hogy a két eljárás
> Határozza meg, milyen leveleket Edit1 orosz vagy angol?

És hol van a „kulcs” (kulcs)?
Ellenőrizze a szöveget az Edit. Ord (Edit1.Text [1])

Írtam az eljárásban TForm1.Edit1KeyDown (Sender: TObject; var Key: Szó;
# XA0; Shift: TShiftState);

Szerkesztése. Ord (Edit1.Text [1]), valami, amit nem értek semmit


> Szerkesztés lehetőséget. Ord (Edit1.Text [1]), valami, amit nem értek semmit

Ez volt az eredeti:
Ellenőrizze a szöveget az Edit.
Ord (Edit1.Text [1])

Tehát mit akarsz? Határozza meg, mely ebben a pillanatban már betűk Edit1? Vagy: „mit írni” próbál beszúrni felhasználó Edit1?

A szöveg gépelt mondani, hogy „aolvzhfoavado”, és azt kell tudni, hogy mi az orosz vagy angol nyelven!

eljárás TForm1.Button9Click (Sender: TObject);
# XA0; var k, i, n: egész szám;
# XA0; str: string [50];
# XA0; x: char;
# XA0; s: string;
# XA0; kezdődik
n: = 1;
i: = 0 edit1.SelLength csinálni kezdődik
# XA0; str: = edit1.Text;

# XA0; k: = ORD (str [n]);
# XA0, ha # XA0; k<65  then begin
# XA0; ShowMessage ( "számok");
// K: = ORD (str [n + 1]);

# XA0; end;
# XA0, ha (k> 65) és (k<=122) then begin
# XA0; ShowMessage ( "eng");
# XA0; // K: = ORD (str [n + 1]);
Hát itt beiktatunk egy puccs betűk
# XA0; end;
# XA0; edit16.Text: = inttostr (k); // mutatnak kulcskód
# XA0; end;

Ez ad egy nagyon érdekes :)
minden működik, itt csak trükk számokkal van rájuk ugrani, amíg egyelőre nem találkoznak a levelet, és látta a kódot találni nyelvet :)
ceto itt üledék! vagy én csak szeretnék aludni :)

Azt fejezte be neki mindegy :) # XA0; Köszönöm a segítséget.
kezdődik
n: = 1;
L1: i: = 0 edit1.SelLength nem kezdődik
# XA0; str: = edit1.Text;
# XA0; k: = ORD (str [n]);
# XA0, ha # XA0; k<65  then begin
# XA0; n: = n + 1;
goto l1;
# XA0; end;
# XA0, ha (k> 65) és (k<=122) then begin
# XA0; # XA0; button13.Click ;; // lefordítani orosz
# XA0; # XA0; end
# XA0; máshol
# XA0; kezdődik
# XA0; b1.Click; // lefordítani angol
# XA0; végén;
# XA0; edit16.Text: = inttostr (k);
# XA0; end;

Memória: 0,74 MB
Idő: 0,05 c

előző ◈ a következő