Witamy w Nieoficjalnym polskim support'cie AMX Mod X
Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.
|
IF Napis + liczba THEN ustawia zmiennąTurrrrbo Pascal
#1
Napisano 26.09.2010 15:11
#2
Napisano 26.09.2010 15:22
użyj Pos i Copy (o ile w pascalu to działa).
Pos użyj do znalezienia spacji pomiędzy "ustawienie" a wartością
a następnie skopiuj od początku do spacji, potem od spacji do końca i to będzie wartość
potem porównaj pierwszą część z "ustawienie" i jeżeli się zgadza to zmień wartość zmiennej na drugą część
#3
Napisano 26.09.2010 15:33
Dasz jakiś przykładzik ?
#4
Napisano 26.09.2010 16:09
#5
Napisano 26.09.2010 16:10
Length(s) - zwraca bieżącą długość łańcucha s;
Copy(s, m, n) - zwraca podłańcuch o długości m znaków wycięty z łańcucha s poczynając od pozycji n;
Pos(ch, s) - zwraca numer pozycji, na której w łańcuchu s znajduje się znak ch;
Tu masz przykłady itd: Turbo Pascal. Programowanie
#6
Napisano 26.09.2010 17:57
Spróbowałem z tym:
LName := Copy(Name, Pos(' ', Name) + 1, Length(S) - Pos(' ', Name));ale nic się nie wyświetla. Te pierwsze działa, wyświetla się tylko pierwsze ale interesuje mnie druga wartość.
Tylko że tu się wpisuje jednorazowo a ja mam programik gdzie ciągle cię wpisuje jakieś liczby (Pav wie bo dawałem )
Może jutro spróbuje ogarnąć te łańcuchy
#7
Napisano 26.09.2010 18:04
LName := Copy(Name, Pos(' ', Name) + 1, Length(Name) - Pos(' ', Name));powinno działać. absolutnie nic nie wyświetla niezależnie od stringa początkowego ?
Miałeś Length(Name) czy Length(S) ?
#8
Napisano 26.09.2010 18:16
Za godzinke zobacze.
I jeszcze jak to powiązać z moim kodem?
(kawałek)
PROCEDURE Liczby; Begin REPEAT readln(napis); for x:=1 to length(napis) do Sound(napis[x]); IF napis='/predkosc' THEN Predkosc; UNTIL napis='/exit'; End;
#9
Napisano 26.09.2010 18:31
PROCEDURE Liczby; Begin REPEAT readln(napis); IF napis='/predkosc' THEN Predkosc else for x:=1 to length(napis) do Sound(napis[x]); UNTIL napis='/exit'; End;
O to ci chodzi ?
#10
Napisano 26.09.2010 18:51
masz rezultaty ostatnich 20 minut wiec przyklad prosty
wpisujesz
to ustawia zmiennaustaw wartosc
ustaw_hookna wartosc jaka podales
jesli wpiszesz
to ustawia zmiennaustawianie wartosc
ustawianie_hook
Chcesz wysłać do mnie PW ? użyj nazwy GoQ zamiast G[o]Q
Chcesz Kupić moduł płatności via Pukawka,Tserwery, Gamesol, Zabijaka do mojego sklepu? napisz PW cena to tylko 10 zł/sztuka
GG:6022845 (nie pomagam za free osobom ponizej rangi MoD)
#11
Napisano 26.09.2010 20:23
Również z jednym lub większą ilością słów kluczowych: Pascal
Pascal
"Zaufany" program?Napisany przez MonsterLevel, 05.10.2014 pascal |
|
||||
Pascal
Pomoc w schemacie Hornera (obliczanie wartości wielomianu)Napisany przez K!113r, 31.01.2013 pascal |
|
||||
Pascal
[freepascal] GetPixelRGB(x, y);Napisany przez daedhelil, 16.01.2013 pascal |
|
||||
|
Pascal
[ROZWIĄZANE] Magia pascala czyli co jest źleNapisany przez ToRRent, 29.11.2012 pascal |
|
|||
Pascal
Nie potrafię napisać programu na długość przeciwprostokątnejNapisany przez Fail, 17.09.2012 Pascal |
|
Użytkownicy przeglądający ten temat: 0
0 użytkowników, 0 gości, 0 anonimowych