დელფისტყაოსანი -> თბილისის ფორუმი

Welcome Guest ( ავტორიზაცია | რეგისტრაცია )

ვალიდაციის წერილის ხელახალი გაგზავნა

წესები · დახმარება · ძებნა · წევრები · კალენდარი · რჩეულები · ჩატი

თბილისის ფორუმი -> ტექნიკური კონფერენცია -> პროგრამირება

გამოხმაურება · ახალი თემა · ახალი გამოკითხვა

Pages: (2) 1 [2] ( გადავიდეთ პირველ წაუკითხავ წერილზე )

დელფისტყაოსანი, დახმარება მჭირდება

მივიღოთ შეტყობინება ამ თემის განახლების შესახებ · გაუგზავნეთ ეს გვერდი სხვას · ამოსაბეჭდი ვერსია | თემის რჩეულებში დამატება/წაშლა

genoie
Crazy Member
ჯგუფი: Members

genoie
Crazy Member

ჯგუფი: Members
წერილები: 2402
წევრი No.: 127130
რეგისტრ.: 8-February 11

#29413972 · 27 Jan 2012, 21:17 · · პროფილი · პირადი მიმოწერა · ჩატი

CODE

case a of
123456: edit1.Color:=clgreen;
246810: edit1.Color:=clgreen;
135791: edit1.Color:=clgreen;
else
edit1.Color:=clred;
end;

შენი კეისი ესე ჩაწერე აბა

This post has been edited by genoie on 27 Jan 2012, 21:21

--------------------

[b] [/b]

· ციტირება · ^

Dinozo მანიაკი ჯგუფი: Registered
Dinozo მანიაკი ჯგუფი: Registered წერილები: 873 წევრი No.: 113099 რეგისტრ.: 18-February 10	#29414648 · 27 Jan 2012, 21:55 · · პროფილი · პირადი მიმოწერა · ჩატი genoie ეგრეც შეიძლება case ჩაიწეროს მაგრამ აქ მტავარი პრობლემა რა არის იცი? IF ბრძანებით როგორ ვუთხრა ის რომ ჩემი შეტანილი რიცხვი შეადაროს a -ს ანუ a-ში ჩაწერილ რიცხვებს , აი ამათ 123456 246810 135791 -------------------- არასოდეს დანებდე!!!
	· ციტირება · ^

genoie Crazy Member ჯგუფი: Members
genoie Crazy Member ჯგუფი: Members წერილები: 2402 წევრი No.: 127130 რეგისტრ.: 8-February 11	#29415891 · 27 Jan 2012, 22:58 · · პროფილი · პირადი მიმოწერა · ჩატი გააკეთე მასივი და დაციკლე მასეთ მარტივ რაღაცას როგორ ვერ აკეთებ a-ში ჩაწერილი ციფრები სად გაქ მაგ მაგალითში?
	· ციტირება · ^

xotabich
halt!
ჯგუფი: Registered

xotabich
halt!

ჯგუფი: Registered
წერილები: 622
წევრი No.: 36129
რეგისტრ.: 7-June 07

#29419322 · 28 Jan 2012, 02:40 · · პროფილი · პირადი მიმოწერა · ჩატი

QUOTE

CODE

procedure TForm1.Image3Click(Sender: TObject);
var a,keys:integer;
begin
a:=strtoint(edit1.Text);

case keys of
123456: edit1.Color:=clgreen;
246810: edit1.Color:=clgreen;
135791: edit1.Color:=clgreen;
end;

if (a=keys) then
panel1.Visible:=False
else
begin
edit1.Color:=clred;
end;
end;

რისი გაკეთება გინდა ვერ გავიგე, მაგრამ რაღაც გაკლია აქ...
keys ცვლადს რაიმე მნიშვნელობა არ უნდა მიენიჭოს?

P.S. თუ ეგრეა ჩემი ხათრით მიანიჭე მაინც რამე...

This post has been edited by xotabich on 28 Jan 2012, 02:58

--------------------

paredise is very nice...

· ციტირება · ^

Delfistyaosani Crazy Member ჯგუფი: Members
Delfistyaosani Crazy Member ჯგუფი: Members წერილები: 3100 წევრი No.: 30434 რეგისტრ.: 24-February 07	#29420098 · 28 Jan 2012, 05:42 · · პროფილი · პირადი მიმოწერა · ჩატი ესეიგი რას არ ჩალიჩობს რა ხალხი... ცვეტში ეს გამახსენდა დაწერილი კოდები რო წავიკითხე მიმაგრებული ფაილი ( Number of downloads: 46 ) source.rar -------------------- Intel i7 9900KF Water-cooled Asus Maximus XI Formula Water-cooled T-Force Dark Z 4x8GB DDR4 3600 @ 3800 Gigabyte GTX 1080Ti Turbo Water-cooled DeepCool DQ750ST Thermaltake Core v71 Bykski 140x420 rads x2 - Corsair ML140 x6 Razer Basilisk Ultimate, Huntsman Elite Dell S2716DG 144Hz G-Sync 2K
	· ციტირება · ^

Dinozo
მანიაკი
ჯგუფი: Registered

Dinozo
მანიაკი

ჯგუფი: Registered
წერილები: 873
წევრი No.: 113099
რეგისტრ.: 18-February 10

#29422103 · 28 Jan 2012, 13:22 · · პროფილი · პირადი მიმოწერა · ჩატი

რა იყო გაუგებარი , მე მშვენივრად გავიგე

რისი გაკეთება მინდოდა მოკლედ ავხსნი და მიგახვედრებთ მაინც

user posted image

QUOTE

1. მაქვს პაროლის შესაყვანი ველი
2. მაქვს ღილაკი რომელიც დაიწყებს პაროლის იდენტიფიკაციას ანუ შედარებას
3. მინდოდა მქონოდა პაროლების ნუსხა

ახლა იმ ველში ( 1. ) რომ შევიტანთ რაიმე პაროლს მინდა ღილაკმა ( 2. ) ნახოს იმ პაროლების ნუსხაში არსებობს თუ არა ის პაროლი და თუ არსებობს მაშინ გააკეთოს მაგალითად edit1.Color:=clgreen; და თუ არ არსებობს მაშინ edit1.Color:=clred; გააწითლოს და გაამწვანოს ველი.

ახლა გასაგებად ავხსენი რა მინდოდა?

Delfistyaosani

ვნახავ შენს source-ს

This post has been edited by Dinozo on 28 Jan 2012, 13:23

· ციტირება · ^

spiridon_surajia Crazy Member ჯგუფი: Members
spiridon_surajia Crazy Member ჯგუფი: Members წერილები: 2494 წევრი No.: 153374 რეგისტრ.: 26-August 12	#62496422 · 3 Mar 2026, 01:07 · · პროფილი · პირადი მიმოწერა · ჩატი მოგვარდა?
	· ციტირება · ^

1 მომხმარებელი ათვალიერებს ამ თემას (1 სტუმარი და 0 უჩინარი წევრი)

0 წევრი:

« აქეთ | პროგრამირება | იქით »

Pages: (2) 1 [2]

გამოხმაურება · ახალი თემა · ახალი გამოკითხვა

ფორუმის სერვერების განთავსებას და ინტერნეტთან კავშირს უზრუნველყოფს: CLOUD9

[ Script Execution time: 0.0369 ] [ 11 queries used ] [ GZIP Disabled ]