[Delphi] Wielkość znaków

Cześć @LL

Jak zrobić coś takiego, aby po naciśnięciu przycisku procedura ta NIE UWZGLĘDNIAŁA w swoim działaniu wielkości liter (wielkie\małe)?

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'abcd' then
ShowMessage('OK');
end;

No i przy takiej procedurze jak powyżej, jak wpiszę "AbCd" to nie wyświetli się ta wiadomość... ten ciąg "abcd" to tylko przykład...chciałbym, aby ta procedura nie uwzględniała wielkości znaków przy jakimkolwiek ciągu.
Jak to zrobić [stuk]

--
Pracuję w Delphi
+------------------+
Pozdrawiam
GG: 4079188
[email protected]

procedure TForm1.Button1Click(Sender: TObject);
begin
if AnsiLowerCase(Edit1.Text) = 'abcd' then
ShowMessage('OK');
end;

Moze trzeba dodac StrUtils do uses, sprawdz.

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

skorzystaj z UpperCase
np. If UpperCase(Edit1.Text)='ABCD' Then (..)
Tekst ABCD musi być pisany z dużych liter!!

ech... spóźniłem się

;) Szymek

Dzięki PQ,Szymek :-)

Do Szymka: Twoją metodę do tej pory stosowałem ale chciałem poznać inną, bo wiem, że takowa była :-)...po prostu czasami mogę zapomnieć napisac wielkimi i co wtedy:-)?
Jeszcze raz thx!!

--
Pracuję w Delphi
+------------------+
Pozdrawiam
GG: 4079188
[email protected]

Encyklopedia Delphi - szukaj też tam czasami :)

--
Vogel [[email protected]]

Life is just a dream, you know...
[Cowboy Bebop]

Cześć @LL

O-właśnie :-)
Zapomniałem o niej, kiedy pisałem o tym problemie [wstyd]

--
Pracuję w Delphi
+------------------+
Pozdrawiam
GG: 4079188
[email protected]