Ładny brzuch
Witam wszystkich :)
Mam taki problem: jak zrobi if dla pierwszej litery tekstu np. w komponencie edit? Chodzi mi o takie co, e kto wpisuje w Edit1 wyraz "-wyrazik" i teraz jak zrobi if'a, eby np. jeli pierwsza litera jest "-" to wykonuje jak tam akcje, a jeli nie to inn. Dla caego wyrazu to jest prosty kod:
If Edit1.Text='-' then akcja 1 else akcja2;
Tylko mi chodzi o to, aby if by tylko dla pierwszej literki, cyferki, znaku w edit1 a nie caego wyrazu :( Pomoe kto?
PS: Mogem le nazwa temat - jeli le, prosz o poprawienie moderatorw (ja nie wiem jak go nazwa :D).
a czym jest Edit1.Text ?? lancuchem znakow, inaczej tablica znakow
sprawdzasz pierwszy znak Edit1.Text[0] (nie wiem jak to idzie w Delphi :P), a dalej to juz chyba nie musze tlumaczyc.. :>
a czym jest Edit1.Text ?? lancuchem znakow, inaczej tablica znakow
sprawdzasz pierwszy znak Edit1.Text[0] (nie wiem jak to idzie w Delphi :P), a dalej to juz chyba nie musze tlumaczyc.. :>
Dziki wielkie :) Poszo:
If Edit1.Text[1]='-' then Edit2.Text:='Tak' else Edit2.Text:='Nie';
Temat do zamknicia...
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam taki problem: jak zrobi if dla pierwszej litery tekstu np. w komponencie edit? Chodzi mi o takie co, e kto wpisuje w Edit1 wyraz "-wyrazik" i teraz jak zrobi if'a, eby np. jeli pierwsza litera jest "-" to wykonuje jak tam akcje, a jeli nie to inn. Dla caego wyrazu to jest prosty kod:
If Edit1.Text='-' then akcja 1 else akcja2;
Tylko mi chodzi o to, aby if by tylko dla pierwszej literki, cyferki, znaku w edit1 a nie caego wyrazu :( Pomoe kto?
PS: Mogem le nazwa temat - jeli le, prosz o poprawienie moderatorw (ja nie wiem jak go nazwa :D).
a czym jest Edit1.Text ?? lancuchem znakow, inaczej tablica znakow
sprawdzasz pierwszy znak Edit1.Text[0] (nie wiem jak to idzie w Delphi :P), a dalej to juz chyba nie musze tlumaczyc.. :>
a czym jest Edit1.Text ?? lancuchem znakow, inaczej tablica znakow
sprawdzasz pierwszy znak Edit1.Text[0] (nie wiem jak to idzie w Delphi :P), a dalej to juz chyba nie musze tlumaczyc.. :>
Dziki wielkie :) Poszo:
If Edit1.Text[1]='-' then Edit2.Text:='Tak' else Edit2.Text:='Nie';
Temat do zamknicia...