Problem z Tablicami

Riddle
Administrator
  • Rejestracja:prawie 15 lat
  • Ostatnio:7 minut
  • Lokalizacja:Laska, z Polski
  • Postów:10056
0

Otóż:

Kopiuj
  Ctrls : array [1..4,1..6] of Char =
 (('W', 'S', 'A', 'D', 'J', '?'),
  ('?', '?', '?', '?', '?', '?'),
  ('?', '?', '?', '?', '?', '?'),
  ('?', '?', '?', '?', '?', '?'));

A w OnKeyDown

Kopiuj
Case Char(Key) of
   Ctrls[1, 1]:  {Jakaś instrukcja}
   Ctrls[1, 2]:  {Jakaś instrukcja}
   Ctrls[1, 3]:  {Jakaś instrukcja}
   Ctrls[1, 4]:  {Jakaś instrukcja}
   Ctrls[1, 5]:  {Jakaś instrukcja}
   Ctrls[1, 6]:  {Jakaś instrukcja}
 end;

W tej linji

Kopiuj
   Ctrls[1, 1]:  {Jakaś instrukcja}

wywala błąd
[Error] Unit1.pas(393): Constant expression expected

Czemu?

edytowany 2x, ostatnio: Riddle
KA
  • Rejestracja:prawie 20 lat
  • Ostatnio:2 minuty
  • Lokalizacja:Gorlice
1

To nie problem z tablicą tylko z case... Jak chcesz żeby to działało widziałeś kiedyś instrukcję case?


Nie odpowiadam na PW w sprawie pomocy programistycznej.
Pytania zadawaj na forum, bo:
od tego ono jest ;) | celowo nie zawracasz gitary | przeczyta to więcej osób a więc większe szanse że ktoś pomoże.
Riddle
Widziałem. Z Integerem to działało.
Riddle
A... trzeba zrobić tablice typu Integer...
KA
Co konkretnie chcesz uzyskać?
Riddle
Jak wcisnę klawisze W, S, A, D, J, Space dzieją się rzeczy. I to działa dobrze... Ale teraz chciałem wprowadzić możliwość zmiany tych klawiszy, żeby uniknąć ponownego kompilowania całego programu... Do tablicy w OnCreate Formy będę ładował klawisze zapisane w pliku *.INI
Riddle
Administrator
  • Rejestracja:prawie 15 lat
  • Ostatnio:7 minut
  • Lokalizacja:Laska, z Polski
  • Postów:10056
0

Ej, nawet tak

Kopiuj
Case Ord(Char(Key)) of
   Ord(Ctrls[1, 1]):  {Jakaś instrukcja}
   Ord(Ctrls[1, 2]):  {Jakaś instrukcja}
   Ord(Ctrls[1, 3]):  {Jakaś instrukcja}
   Ord(Ctrls[1, 4]):  {Jakaś instrukcja}
   Ord(Ctrls[1, 5]):  {Jakaś instrukcja}
   Ord(Ctrls[1, 6]):  {Jakaś instrukcja}
 end;

Nie działa, i wywala ten sam błąd.

wywala błąd
[Error] Unit1.pas(393): Constant expression expected

KA
  • Rejestracja:prawie 20 lat
  • Ostatnio:2 minuty
  • Lokalizacja:Gorlice
0

No nie dziwne że nie działa, pytam co chciałbyś uzyskać. Co ta instrukcja (case) miałaby robić?


Nie odpowiadam na PW w sprawie pomocy programistycznej.
Pytania zadawaj na forum, bo:
od tego ono jest ;) | celowo nie zawracasz gitary | przeczyta to więcej osób a więc większe szanse że ktoś pomoże.
edytowany 1x, ostatnio: kAzek
Riddle
Chyba Lepiej Case... of niż 24 ify.
Riddle
PS; zamiast komentarzy {Jakaś instrukcja} wywoływane są instrukcje...
KA
Dalej nie rozumiem :/
Shalom
  • Rejestracja:około 21 lat
  • Ostatnio:prawie 3 lata
  • Lokalizacja:Space: the final frontier
  • Postów:26433
1

Log błędu mówi sam za siebie. W przypadku case wartości muszą być znane i stałe, u ciebie nie są bo możesz wartości tej tablicy zmieniac.


"Nie brookliński most, ale przemienić w jasny, nowy dzień najsmutniejszą noc - to jest dopiero coś!"
Riddle
To jakie jest najlepsze wyjście?
zbynio_k
  • Rejestracja:około 15 lat
  • Ostatnio:ponad 8 lat
1

i tak będziesz musiał w instrukcji case .. of podać WSZYTKIE stany do przechwycenia
więc spoko możesz zrobi coś takiego

Kopiuj
procedure TEST(key: Byte);
var
  tmp: Byte;
begin
  tmp := Ord(Char(Key));
  case tmp of
    Ord('W'): ; {Jakaś instrukcja}
    Ord('S'): ; {Jakaś instrukcja}
    Ord('A'): ; {Jakaś instrukcja}
    Ord('D'): ; {Jakaś instrukcja}
    Ord('J'): ; {Jakaś instrukcja}
    Ord('?'): ; {Jakaś instrukcja}
  else
{Jakaś instrukcja}
  end;
end;

w tym układzie akurat nie potrzebujesz tablic

//EDIT
jeśli w trakcie programu zmieniasz wartości w tablicy, to, żeby było uniwersalnie, stwórz procedurę inicjacji zmiennych

Kopiuj
klaw_x:=Ctrls[i,j]

klaw_x wstaw zamiast Ord('x')

użyj jej w zdarzeniu formy OnCreate i za każdym razem, jeśli zmieniasz wartości w tablicy


jeśli program, który właśnie mozolnie napisałeś ruszył od pierwszego "kopa" to znaczy, że .....
na pewno gdzieś popełniłeś błąd
edytowany 3x, ostatnio: zbynio_k
pelsta
1. Jeżeli Key:Byte to Ord(Char(Key))=Key. 2. Przecież Shalom już zwrócił uwagę, że przypadki w case nie mogą być zmiennymi.
zbynio_k
1. jasne, przedobrzyłem, bo zacząłem od czegoś innego a tożsamość została 2. pozostaje Ord('znak') 3. resztę podtrzymuję
Riddle
Ale jeżeli skompiluje taki program, to ni jak nie będę mógł zmienić klawiszy... Chciałem te klawisze ładować z pliku.
pelsta
  • Rejestracja:prawie 19 lat
  • Ostatnio:2 dni
  • Postów:819
1

Jedynym wyjściem jest wielokrotne zastosowanie instrukcji if.

Kopiuj
  if Char(Key)=Ctrls[1, 1] then {Jakaś instrukcja} else
  if Char(Key)=Ctrls[1, 2] then {Jakaś instrukcja} else
  itd...
zbynio_k
w każdym przypadku (porównania czy wybór) jest dim_i X dim_j warunków, a IF daje oczekiwany rezultat porównania zmiennych
Riddle
Tak myslałem, trudno
Riddle
Administrator
  • Rejestracja:prawie 15 lat
  • Ostatnio:7 minut
  • Lokalizacja:Laska, z Polski
  • Postów:10056
0

Ostatnio często to mówię, ale: "Żal mi mnie"

Jak przypisać do tablicy wartość z Ini?

Kopiuj
uses INIFiles;

var
  INI : TINIFile;
begin
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) + 'controls.ini');
 try
   for I := 1 to 4 do
     for J := 1 to 6 do
       Con[I, J]:= Chr(INI.ReadString(IntToStr(I), IntToStr(J), '?'));
 finally
   INI.Free;
 end;
end;

Jakby ktos się czepiał plik ini wygladał tak:

Kopiuj
[1]
1=W
2=S
3=A
itd...

Wywala błąd
//Invaild Typecast

Edit:
Sory:
//Incompatible types

edytowany 3x, ostatnio: Riddle
pelsta
Nieprawidłowy typ argumentu dla funkcji Chr
KA
  • Rejestracja:prawie 20 lat
  • Ostatnio:2 minuty
  • Lokalizacja:Gorlice
1

Zakładam że w INI są poprawne warosci

Kopiuj
Con[I, J]:= INI.ReadString(IntToStr(I), IntToStr(J), '?')[1];

Nie odpowiadam na PW w sprawie pomocy programistycznej.
Pytania zadawaj na forum, bo:
od tego ono jest ;) | celowo nie zawracasz gitary | przeczyta to więcej osób a więc większe szanse że ktoś pomoże.
edytowany 1x, ostatnio: kAzek
Zobacz pozostałe 4 komentarze
Riddle
Ja też nie zauważyłem ten jedynki. Także każdemu mogło się zdarzyć
zbynio_k
yes,yes,yes :) [1]
Riddle
Noi masz, jednak jest błąd. W INI zapisałem spację jako #32, ale program odczytuje tylko #.
Riddle
PS; Chyba go rozwiązałem zapisze w ini litery ale w kodzie ASCII, odczytam String i wszystkie zamienię na typ Char.
Riddle
Miałem rację, ten sposób działa. Nie będę zamieszczał kodu, bo nie sądzę że ktoś będzie tak samo "mądry" jak ja...
Riddle
Administrator
  • Rejestracja:prawie 15 lat
  • Ostatnio:7 minut
  • Lokalizacja:Laska, z Polski
  • Postów:10056
0

Dziękuje wszystkim za odpowiedzi, i męczenie się ze mną

edytowany 1x, ostatnio: Riddle
Kliknij, aby dodać treść...

Pomoc 1.18.8

Typografia

Edytor obsługuje składnie Markdown, w której pojedynczy akcent *kursywa* oraz _kursywa_ to pochylenie. Z kolei podwójny akcent **pogrubienie** oraz __pogrubienie__ to pogrubienie. Dodanie znaczników ~~strike~~ to przekreślenie.

Możesz dodać formatowanie komendami , , oraz .

Ponieważ dekoracja podkreślenia jest przeznaczona na linki, markdown nie zawiera specjalnej składni dla podkreślenia. Dlatego by dodać podkreślenie, użyj <u>underline</u>.

Komendy formatujące reagują na skróty klawiszowe: Ctrl+B, Ctrl+I, Ctrl+U oraz Ctrl+S.

Linki

By dodać link w edytorze użyj komendy lub użyj składni [title](link). URL umieszczony w linku lub nawet URL umieszczony bezpośrednio w tekście będzie aktywny i klikalny.

Jeżeli chcesz, możesz samodzielnie dodać link: <a href="link">title</a>.

Wewnętrzne odnośniki

Możesz umieścić odnośnik do wewnętrznej podstrony, używając następującej składni: [[Delphi/Kompendium]] lub [[Delphi/Kompendium|kliknij, aby przejść do kompendium]]. Odnośniki mogą prowadzić do Forum 4programmers.net lub np. do Kompendium.

Wspomnienia użytkowników

By wspomnieć użytkownika forum, wpisz w formularzu znak @. Zobaczysz okienko samouzupełniające nazwy użytkowników. Samouzupełnienie dobierze odpowiedni format wspomnienia, zależnie od tego czy w nazwie użytkownika znajduje się spacja.

Znaczniki HTML

Dozwolone jest używanie niektórych znaczników HTML: <a>, <b>, <i>, <kbd>, <del>, <strong>, <dfn>, <pre>, <blockquote>, <hr/>, <sub>, <sup> oraz <img/>.

Skróty klawiszowe

Dodaj kombinację klawiszy komendą notacji klawiszy lub skrótem klawiszowym Alt+K.

Reprezentuj kombinacje klawiszowe używając taga <kbd>. Oddziel od siebie klawisze znakiem plus, np <kbd>Alt+Tab</kbd>.

Indeks górny oraz dolny

Przykład: wpisując H<sub>2</sub>O i m<sup>2</sup> otrzymasz: H2O i m2.

Składnia Tex

By precyzyjnie wyrazić działanie matematyczne, użyj składni Tex.

<tex>arcctg(x) = argtan(\frac{1}{x}) = arcsin(\frac{1}{\sqrt{1+x^2}})</tex>

Kod źródłowy

Krótkie fragmenty kodu

Wszelkie jednolinijkowe instrukcje języka programowania powinny być zawarte pomiędzy obróconymi apostrofami: `kod instrukcji` lub ``console.log(`string`);``.

Kod wielolinijkowy

Dodaj fragment kodu komendą . Fragmenty kodu zajmujące całą lub więcej linijek powinny być umieszczone w wielolinijkowym fragmencie kodu. Znaczniki ``` lub ~~~ umożliwiają kolorowanie różnych języków programowania. Możemy nadać nazwę języka programowania używając auto-uzupełnienia, kod został pokolorowany używając konkretnych ustawień kolorowania składni:

```javascript
document.write('Hello World');
```

Możesz zaznaczyć również już wklejony kod w edytorze, i użyć komendy  by zamienić go w kod. Użyj kombinacji Ctrl+`, by dodać fragment kodu bez oznaczników języka.

Tabelki

Dodaj przykładową tabelkę używając komendy . Przykładowa tabelka składa się z dwóch kolumn, nagłówka i jednego wiersza.

Wygeneruj tabelkę na podstawie szablonu. Oddziel komórki separatorem ; lub |, a następnie zaznacz szablonu.

nazwisko;dziedzina;odkrycie
Pitagoras;mathematics;Pythagorean Theorem
Albert Einstein;physics;General Relativity
Marie Curie, Pierre Curie;chemistry;Radium, Polonium

Użyj komendy by zamienić zaznaczony szablon na tabelkę Markdown.

Lista uporządkowana i nieuporządkowana

Możliwe jest tworzenie listy numerowanych oraz wypunktowanych. Wystarczy, że pierwszym znakiem linii będzie * lub - dla listy nieuporządkowanej oraz 1. dla listy uporządkowanej.

Użyj komendy by dodać listę uporządkowaną.

1. Lista numerowana
2. Lista numerowana

Użyj komendy by dodać listę nieuporządkowaną.

* Lista wypunktowana
* Lista wypunktowana
** Lista wypunktowana (drugi poziom)

Składnia Markdown

Edytor obsługuje składnię Markdown, która składa się ze znaków specjalnych. Dostępne komendy, jak formatowanie , dodanie tabelki lub fragmentu kodu są w pewnym sensie świadome otaczającej jej składni, i postarają się unikać uszkodzenia jej.

Dla przykładu, używając tylko dostępnych komend, nie możemy dodać formatowania pogrubienia do kodu wielolinijkowego, albo dodać listy do tabelki - mogłoby to doprowadzić do uszkodzenia składni.

W pewnych odosobnionych przypadkach brak nowej linii przed elementami markdown również mógłby uszkodzić składnie, dlatego edytor dodaje brakujące nowe linie. Dla przykładu, dodanie formatowania pochylenia zaraz po tabelce, mogłoby zostać błędne zinterpretowane, więc edytor doda oddzielającą nową linię pomiędzy tabelką, a pochyleniem.

Skróty klawiszowe

Skróty formatujące, kiedy w edytorze znajduje się pojedynczy kursor, wstawiają sformatowany tekst przykładowy. Jeśli w edytorze znajduje się zaznaczenie (słowo, linijka, paragraf), wtedy zaznaczenie zostaje sformatowane.

  • Ctrl+B - dodaj pogrubienie lub pogrub zaznaczenie
  • Ctrl+I - dodaj pochylenie lub pochyl zaznaczenie
  • Ctrl+U - dodaj podkreślenie lub podkreśl zaznaczenie
  • Ctrl+S - dodaj przekreślenie lub przekreśl zaznaczenie

Notacja Klawiszy

  • Alt+K - dodaj notację klawiszy

Fragment kodu bez oznacznika

  • Alt+C - dodaj pusty fragment kodu

Skróty operujące na kodzie i linijkach:

  • Alt+L - zaznaczenie całej linii
  • Alt+, Alt+ - przeniesienie linijki w której znajduje się kursor w górę/dół.
  • Tab/⌘+] - dodaj wcięcie (wcięcie w prawo)
  • Shit+Tab/⌘+[ - usunięcie wcięcia (wycięcie w lewo)

Dodawanie postów:

  • Ctrl+Enter - dodaj post
  • ⌘+Enter - dodaj post (MacOS)