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

მართალია ცოტა რთულ რამეს ვითხოვ მაგრამ იმედია ვინმესთვის ცოტა ადვილი იქნება და დამეხმარება,
ჯერ პირველ რიგში ვარ დამწყები , ეს ისე ინფორმაციისთვის ))


ახლა საქმე:

ვქმნი უბრალო პროგრამას რომლის დაცვაც მიდნა კოდით, უბრალო დაცვით ,

მინდა ველში(edit1.text) ჩაწერილი კოდი შეადაროს პროგრამამ case of-ში მდებარე რიცხვებს და თუ რომელიმე დაემთხვევა გაამწვანოს ველის ფერი (edit1.color:clgreen;) და თუ არ დაემთხვა გააწითლოს .

ეს ადვილი რამ ვერაფრიტ ვერ გავაკეთე და იქნება ვინმე კეთილმა ბიძიამ დამეხმაროს და გამაგებინოს

P.S
არაა აუცილებელი მაინცდამაინც დელფის სოურსი დადოტ C\C++ ის სოურსაც მივიღებ და გავარჩევ როგორმე

This post has been edited by Dinozo on 24 Jan 2012, 20:50

ასეთ რამეს გულისხმობ თუ ვერ გავიგე კარგად კითხვა? :)

This post has been edited by sys32 on 24 Jan 2012, 21:38

sys32
არა ეგრე არა , VCL ფორმაში ვაკეთებ

ესე?

(IMG:http://s018.radikal.ru/i518/1201/1b/b968ec66be0e.png)


#include <iostream>
#include <windows.h>

using namespace std;

int main()
{
HANDLE hConsole;
int k;

hConsole = GetStdHandle(STD_OUTPUT_HANDLE);


for(k = 11; k < 16; k++)
{

SetConsoleTextAttribute(hConsole, k);
cout << k << "Coded By WIle Mak" << endl;
}

cin.get();
return 0;
}

This post has been edited by Wile Mak on 25 Jan 2012, 01:13

Wile Mak
ფორმში ვაკეთებო და ეგ რაღაცა ფორმში გააკეთე შენც ))

მაგას რა მნიშვნელობა აქვს? case აფრიკაშიც case-ა.

sys32
Wile Mak

მაგალითს მოვიტან :
მაგალითად ველში(edit1.text) შევიტანო რაიმე რიცხვი და button-ის დაჭერის შემდეგ მან შეადაროს ეს შეტანილი რიცხვი case -ში მდებარე რიცხვებს და თუ სწორია გამოიტანოს შეტყობინება მაგალითად Successfully registered.

case key of
რიცხვი : label1.caption:="Successfully registered";
რიცხვი : label1.caption:="Successfully registered";
რიცხვი : label1.caption:="Successfully registered";
რიცხვი : label1.caption:="Successfully registered";
end;

ასე გამოიყურება case მაგრამ მე if -ის სინტაქსი ვერ გავმართე სწორად, ბრძანებას ვერ ვწერ.

გამიგეთ რა მინდა?

* * *

if ბრძანებას ასე რომ ვწერ , და შემდეგ ფორმაში კოდს "სწორად" რომ ვუთითებ მიწითლებს (ჩეცდომის შემთხვევაში ასე დავაყენე).
პრობლემა keys -ში არის , როცა if a=123456 ვწერ კოდში, აკეთებს სწორად ყველაფერს , ხოლო როდესა keys ვუწერ აღარ მუშაობს და რა შეცდომა მაქ სინტაქსში?

Dinozo
აქ გაქ შეცდომა if (a=keys) then

დელფის აზზე არ ვარ მაგრამ ყველა პროგრამაში თუ იფ განტოლებას აკეთებ (a == keys) ასე უნდა დაწერო შენი დაწერილიდან ცვლად a-ს მიანიჭე keys-ს მნიშვნელობა და ყველა შემთხვევაში

შენი გამოკითხვა true არის ანუ გიჩვენებს panel1.Visible:=False

სხვა ენაში ასე არის და მანდ როგორ არის
მერე კიდე მაგ case-ს default არ ააქ ?? ისევ if გამოკითხვას რომ აკეთებ?

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

დელფიში ტოლობა ერთი ( = ) სიმბოლოთი იწერება ,

true შემთხვევაში panel1.Visible:=False -თი ვეუბნევი რომ გააქროს ეს პანელი , არაფრის გამობეჭდვა არ მიდნა.

ვერ ვხვდები პრობლემა რაშია, მე მიდნა ვკითხო რომ a ცვლადში შეტანილი რიცხვი შეადაროს keys -ში მდებარე რიცხვებს და თუ დამეთხვა რომელიმე გააკეთოს შემდეგი ბრძანება ანუ გაამწვანოს ველი და ზევიტ რაც ვთქვი პანელიც გააქროს .

Dinozo

php-ში გაგიკეთებ თუ გინდა და გადათარგმნე მაგ ენაზე )

genoie
დაწერე რამე პატარა და შევეცდები გავიგო ))

Dinozo
რა უნდა ქნას მაგ შენმა კოდმა მითხარი ზუსტად და გაგიკეთებ

genoie

კარგი მიახლოებულ ვერსიას გეტყვი.

case -ში ჩამოიწეროს მობილური ოპერატორების ინდექსი, შემდეგ როდესაც შევიყვანთ ინდექსის ნომერს ველში, ავტომატურად შეგვატყობინოს რომ ეს (მაგ: 593 ) ჯეოსელისაა და ა.შ

(IMG:http://s018.radikal.ru/i503/1201/f6/701c97b5d30bt.jpg)

This post has been edited by Dinozo on 27 Jan 2012, 20:07

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

genoie
რა ადვილი ყოფილა php-ში :D

მაგრამ რა რთულია დელფიში :D მადლობა მაინც რომ მეხმარები , იმედია ვინმე სხვაც შემოიხედავს და დამეხმარება რამეში მაინც