/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Bruge Edit.Text som SelectorExpression
Fra : Daniel Overby Hansen


Dato : 08-09-01 18:24

Hejsa

Jeg skal lave et program der kalder tre forskellige forme frem, hvilket
afgøres af hvad man skriver i et edit felt (enten r g b, altså et bogstav).

Jeg skal lave det med en case men da jeg kan ikke bare bruge edit?.text da
det ikke er en ordinal datatype. Jeg har tænkt på at kopiere edit?.text over
i en char og så bruge den som SelectorExpression, men hvordan?

Hilsen Daniel



 
 
Thomas Rose (09-09-2001)
Kommentar
Fra : Thomas Rose


Dato : 09-09-01 10:39

Hej Daniel,

"Daniel Overby Hansen" <danieloverby@hotmail.com> wrote in message
news:3b9a5407$0$264$edfadb0f@dspool01.news.tele.dk...
> Hejsa
>
> Jeg skal lave et program der kalder tre forskellige forme frem, hvilket
> afgøres af hvad man skriver i et edit felt (enten r g b, altså et
bogstav).
>
> Jeg skal lave det med en case men da jeg kan ikke bare bruge edit?.text da
> det ikke er en ordinal datatype. Jeg har tænkt på at kopiere edit?.text
over
> i en char og så bruge den som SelectorExpression, men hvordan?

Hvis jeg forstår dit spørgsmål rigtigt, kunne følgende måske bruges:

var
C : Char;
begin
if length(Edit1.Text) = 1 then
begin
// Her kopieres bogstavet fra Edit1 over i C
C := Upcase(Edit1.Text[1]);

case C of
'R' : ; // Vis form for "R"
'G' : ; // Vis form for "G"
'B' : ; // Vis form for "B"
else // Der er indtastet et "forkert" bogstav
end;
end;
end;

Her er Edit1 dit TEdit kontrol, hvor man indtaster 'r', 'g', eller 'b'. Du
kan også passende sætte attributten MaxLength på Edit1 til 1... så kan der
kun indtastes ét bogstav i kontrollen. Det eneste der mangler er en
færdiggørelse af Case-sætningen, hvor jeg kan forstå du gerne vil have vist
én af tre forskellige forme...

Eksemplet kan f.eks. bruges i en event-handler for Edit1's OnKeyUp event.

Håber det kan bringe dig videre...

Cheers,
Thomas



Daniel Overby Hansen (09-09-2001)
Kommentar
Fra : Daniel Overby Hansen


Dato : 09-09-01 18:32

> Håber det kan bringe dig videre...

Mange tak, det hjalp. Nu virker programmet som det skal....



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste