Alqoritm, xassələri və təsvir üsulları


Redaktə sətrində simvollar registrini dəyişdirmək üçün TEditCharCase tipli CharCase xassəsi mövcuddur ki, bu da aşağıdakı üç qiymətdən birini ala bilər



Yüklə 2,19 Mb.
səhifə98/125
tarix07.01.2024
ölçüsü2,19 Mb.
#205155
növüYazı
1   ...   94   95   96   97   98   99   100   101   ...   125
aminlazım

Redaktə sətrində simvollar registrini dəyişdirmək üçün TEditCharCase tipli CharCase xassəsi mövcuddur ki, bu da aşağıdakı üç qiymətdən birini ala bilər:
ecLovverCase -mətnin simvolları aşağı registr simvollarına çevrilir;
ecNo rma 1 -simvollar registri dəyişmir; ecUpperCase -mətnin simvolları yuxarı registr simvollarına çevrilir.
Forma üzərində Edit komponenti yerləşdirib, müxtəlif registrlərdə daxil edilmiş simvollar yığımından ibarət mətn yazaraq bu xassələrin təsirini özünüz yoxlayın. Bundan başqa, simvollar registrini dəyişdirmək üçün AnsiLovverCase və AnsiUpperCase funksiyaları da istifadə oluna bilər. Bu funksiyalar Əlavədə izah edilmişdir.
Misal. Mətn sahəsi daxilində simvollar registrinin dəyişdirilməsi.
Forma üzərinə iki Edit komponenti və Button düyməsi yerləşdirin. Button düyməsini seçərək OnClick hadisəsini aktivləşdirib aşağıdakı kodları yazın:
procedure TForml. ButtonlClick (Sender:TObject); begin
Editl.Text: = AnsiLovverCase(Editl.Text); Edit2.Text: = AnsiUpperCase(Edit2.Text); end;
Hazır layihədə Editl, Edit2 mətn sahələrinə müxtəlif registrli mətnlər daxil edin. Buttonl düyməsini basdıqda Editl sahəsinə daxil edilən mətn kiçik hərfli mətnə, Edit2 sahəsinə daxil edilən mətn isə baş hərflərdən ibarət mətnə çevriləcəkdir.
Birsətirli redaktorda şifrə də daxil etmək olar. Bunun üçün Char tipli PasswordChar xassəsindən istifadə etmək lazımdır. Obyektlər inspektorunda
susmaya görə bu xassəyə #0 qiyməti verilmişdir, yəni şifrə istifadə edilmir. Şifrəni kod vasitəsilə də daxil etmək olar:
Editl. Passvvord Char: = '*';
Editl.Text:= 'Delphi';
Misal I. Formanın sərlövhəsinin dəyişdirilməsi.
Forma üzərinə Label, Edit və Button komponentləri endirərək onları olduğu kimi yerləşdirin. Obyektlər inspektorunda Labell komponentinin sərlövhəsini - Yeni sərlövhəni daxil et, Buttonl komponentinin sərlövhəsini isə Sərlövhəni dəyiş adlandırın, Editl komponentinin Text xassəsindəki Editl mətnini pozub Microsoft Excel 2002 yazın. Buttonl düyməsinin OnClick hadisəsi üçün aşağıdakı kodları yazın: procedure TForml.ButtonlClick(Sender: TObject); begin

Yüklə 2,19 Mb.

Dostları ilə paylaş:
1   ...   94   95   96   97   98   99   100   101   ...   125




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin