|
| 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....
| |
|
|