Na forum 4programmers.net korzystamy z plików cookies. Część z nich jest niezbędna do funkcjonowania
naszego forum, natomiast wykorzystanie pozostałych zależy od Twojej dobrowolnej zgody, którą możesz
wyrazić poniżej. Klikając „Zaakceptuj Wszystkie” zgadzasz się na wykorzystywanie przez nas plików cookies
analitycznych oraz reklamowych, jeżeli nie chcesz udzielić nam swojej zgody kliknij „Tylko niezbędne”.
Możesz także wyrazić swoją zgodę odrębnie dla plików cookies analitycznych lub reklamowych. W tym celu
ustaw odpowiednio pola wyboru i kliknij „Zaakceptuj Zaznaczone”. Więcej informacji o technologii cookie
znajduje się w naszej polityce prywatności.
Tworzę sobie program w Delphi i chciałbym zrobić komendę która będzie pobierana z obiektu EDIT i przez nią będzie generowane coś w obiekcie LABEL ale chciałbym żeby działało ono bez względu na to jakie będą to litery, czy małe czy duże tak więc chce zmienić wszystkie litery na duże bądź małe po kliknięciu klawisza enter a następnie dalej będą robione kolejne rzeczy.
Tylko nie wiem jaką komendą to mogę zrobić aby zmienić 'TForm', próbowałem uppercase ale odnosi się do stringa a jego nie da się przekonwertować do TForm...
Słabo zrozumiałem - umieść kod. Na pierwszy rzut oka powinieneś użyć funkcji SameText która porównuje napisy nie biorąc pod uwagę wielkości znaków. SameText
Tworzę sobie program w Delphi i chciałbym zrobić komendę która będzie pobierana z obiektu EDIT i przez nią będzie generowane coś w obiekcie LABEL ale chciałbym żeby działało ono bez względu na to jakie będą to litery, czy małe czy duże tak więc chce zmienić wszystkie litery na duże bądź małe po kliknięciu klawisza enter a następnie dalej będą robione kolejne rzeczy.
Napisz to po ludzku, bo niewiele można z tego wywnioskować... Domyślam się, że w polu edycyjnym klasy TEdit podajesz jakiś łańcuch i chcesz go zamienić na same małe/duże litery?
Tylko nie wiem jaką komendą to mogę zrobić aby zmienić 'TForm', próbowałem uppercase ale odnosi się do stringa a jego nie da się przekonwertować do TForm...
Ale jaki TForm...? U mnie działa UpperCase('TForm');
Jeżeli wykorzystujesz funkcje UpperCase lub LowerCase to faktycznie one działają dla String bo po to są, ale także na TComponentName i inych aliasów (?) typu String; Jak coś nie działa - spróbuj rzutować;
Mimo wszystko napisz dokładniej o co Ci chodzi i pokaż kod, który nie działa tak jakbyś tego chciał;
Z fusów Ci nic nie wywróżę, podaj kod;
(przyjmując, że w tym kontekście self wskazuje na formę).
Warunek wykona się niezależnie, czy wpiszesz foo, fOO czy FOO (tj.niezależnie od wielkości liter), ale nie wykona się dla pfoo, asd itd.
W obiektach self jest domyślne/niejawne (tzn.możesz się odwoływać do pól klasy bez pisania self., chociaż w rzeczywistości odwołujesz się do samego siebie, w sensie obiektu), natomiast self nie istnieje w funkcjach oraz procedurach i tam trzeba korzystać z np.Form1.Edit1.Text ;)
Ale Twój kod się powiedzie, bo właściwość Edit1.Text jest typu String, a jemu chyba chodzi o to, że wyskakuje błąd podczas kompilacji o niezgodności typu argumentu funkcji UpperCase/LowerCase; No tak, funkcje/procedury nie posiadają własnego Self, więc trzeba wykorzystywać nazwy kontrolek; No chyba, że to zdarzenia lub procedury/funkcje klasy okna, to Self zadziała dla danego okna;
Do wpisywania tekstu: Edit
Do wyświetlania: Label
I przycisk Button
IF Edit.Text='BLABLABLA' THEN
LABEL.CAPTION:='COS';
i chce aby tekst wpisywany dowolnie jakimi znakami czy dużymi czy małymi dawał mi wynik po naciśnięciu klawisza. Czyli żeby tak było muszę albo cały text przed IF zmienić na duży lub na mały, używałem tego ale nie działa:
FOR i:=1 to Length(Form1) do
Form1[i] := UpCase(Form1[i]);
Chodzi mi o podobny kod tylko aby działał na wartości TFrom
Ta składnia wygląda jak jakiś stary Basic :|
Naucz się formatować normalnie.
Mam jedno pytanie:
Jak z tego kodu:
```delphi
IF Edit.Text='BLABLABLA' THEN
LABEL.CAPTION:='COS';
```
Mogłeś w ogóle pomyśleć o czymś takim?:
```delphi
FOR i:=1 to Length(Form1) do
Form1[i] := UpCase(Form1[i]);
```
FOR i:=1to Length(Form1)do
Form1[i]:= UpCase(Form1[i]);
Tak to jest jak się za programowanie zabiera od d**y strony. Nie zna się algorytmów ale się usiłuje coś pisać. I potem taki pisze do pewnego poziomu na czuja, a potem się okazuje że on nic nie umie (właśnie przez takich 'łapajków').
Nie jestem idiotą.
Chodzi mi o sposób pisania.
Przyjęło się pisanie if, then, czyli większość (wszystkie?) keywordy małymi literami.
Dzięki temu masz +10 do czytelności.
Podobnie nie należy zmiennych/klas/wtf nazywać keywordami (chociaż FPC pozwala na to :P), jak np.label.
Przyjęło się pisanie if, then, czyli większość (wszystkie?) keywordy małymi literami. - @Patryk27, Ty większość z nich piszesz z dużej litery - Operator wyboru w Delphi :P
Każdy ma własny styl pisania, ważne, aby było czytelne. Pomimo wszystko, "Procedure" jakby nie patrzeć jest czytelniejsze, niżeli "PROCEDURE". Albo mi się tylko tak wydaje :P Edit: aktualnie mam tylko dylemat jak pisać "class procedure". Małymi literami to nie będzie w moim stylu, a wielkimi wygląda "dziwnie" :P
ehh przetłumaczę ten kod na język potoczny:
"od i równego 1 do długości okna wykonaj
Do okna o numerze i przypisz okno dużymi literami"
Wytłumacz mi proszę co to jest długośc okna - Length(Form1) - to długośc okna w pixelach?
ile masz okien, że musisz je przechowywać w tablicy i odwoływać sie po indexach Form1[1], Form1[2] itd...
Obiekt klasy TForm czyli w tym wypadku Form1 przechowuje kupe informacji, np kolor okna, jego wysokość, szerokość, reakcje na zdarzenia(kliknięcie myszki itp. Zastanów się jak chcesz kolor okna przekonwertować do dużych liter, tak samo z wysokością itp...
Kod który zacytowałeś w ogóle nie ma sensu - wybrane przez autora funkcje działają na łańcuchach, a Form1 nie jest typu String, tylko TForm1... Jemu pewnie chodzi o właściwość Caption formularzy;
UpperCase; Pewnie rzutowanie wystarczy, ale nie mam pojęcia o co chodzi...