Indeksy wpisujesz podczas tworzenia w polu Tag każdego przycisku. Do użycia w OnClick. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure Fun(Sender: TObject); //Funkcja przycisku private...
1) Dla Delphi większej różnicy chyba nie ma, ale np w VC++ "duża" tablica zaczynała się bodajże faktycznie powyżej 300kB, gdzie praca na takich tablicach zmieniała sposób adresacji, a to skutkowało znacznym spowolnieniem działania programu. (dla ciekawych: załącznik ) Jednakże, jak kolega wspomniał, teoretycznie możesz w środowisko 32-bitowym użyć i...
Tablica dostarczona przez Crasher-a, jest identyczna z tą w moim kodzie. Przyznam, że po prostu ją skopiowałem :)
Witam, Może tablica np Shp:array[1..50] of TShape; Przy uruchamianiu programu przypisać poszczególne shape'y do tablicy, no a potem wg własnego pomysłu. Pozdrawiam
No no nooo, z iście ułańską fantazją podchodzicie panowie do Bascoma i procków AVR, tablice już nie mówię że dwywymiarowe ale po tysiąc elementów ;) .... Nie trzeba wielce znać Bascoma, wystarczy zajrzeć do helpa żeby tam zobaczyć iż tablice mogą być tylko jedno-wymiarowe. Więc o czymś takim jak w Delphi zapomnij nie tylko z tego względu ale i ze względu...
Cego nie rozumiesz? komenda jest indexem tablicy? chyba do 7 umiesz liczyc. Ja umiem nawet do 47 policzyć tylko że nie będę musiał, to ty będziesz musiał ze swoim podejściem. Nie sprawdzasz indeksy tylko wyliczasz dlugosc komendy w zwiazku z tym nie mozna pomylic dzeta z eta ... Znowu nie zrozumiałeś, te komentarze pokazują wizualna odległość pomiędzy...
Po łebkach opisany algorytm... 1.Rysowanie wektora robisz tak a)rysujesz kreskę b)rysujesz trójkąt na końcu (pozycję obliczasz z wykorzystaniem zamiany wartości x/y c)wypełniasz trójkąt czarnym kolorem d)jeżeli jest włączona opcja przesuwania wektora to dodatkowo rysujesz 3 kólka (na początku, na środku do przesuwania całego wektora i na końcu) 2.Dane...
Nie wiem dokładnie, jak Delphi wewnętrznie przechowuje wczytane bitmapy, jeśli przechowuje je tak jak opisuję to dobrze, jeśli nie to trzeba napisać własną procedurę wczytywania plików (nie jest to trudne). Do rzeczy - jeśli po wczytaniu bitmapa jest przechowywana w pamięci jako ciągły blok pamięci, dodatkowo na piksel wykorzystane są 4 bajty (R G B...
Ja ogólnie pisze w Delphi wiec napisałem ci to najprościej jak się dało i chciałem ominąć klasy i rekordy abyś mógł mniej więcej zobaczyć o co chodzi. więc się ograniczyłem do samych zmiennych: var Tab: array[1..5] of array[1..5] of byte; // Twoja Tablica 5x5 = 25 Najwieksza: array[1..25] of byte; // Ta tablica przechowuje...
procedure StringGrid_Pos(var sg : TStringGrid; srow, algn : integer); //sg - obsługiwana tablica //srow - wybrany wiersz //algn - przesunięcie względem początku tabeli // (dla zera wiersz srow będzie pierwszym wyświetlanym w polu roboczym) var myRect: TGridRect; begin if srow<1 then srow:=1; with myrect do begin left:=0;...
Cześć, poniżej rozkodowany VIN : Model308 Nr APV/PR (obsługa posprzedażna/część zamienna)12497 89 1 0217 Data Początku Gwarancji01.03.2011 NRE(homologacja)e2*2001/116*0362*29 P4A9665526199 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUPEUGEOT LINIA PRODUKTU308 TYP NADWOZIAHATCHBACK 5DRZW WYKOŃCZENIEWYSOKA NISKA SILNIKDIESEL...
Poszukuje algorytmu, który wykorzystywany jest w programach graficznych do korekcji kolorów zdjęcia. Robi się to za pomocą krzywej, której punkty można przesuwać/przeginać a tym samym zmieniać jasność kolorów. Do szczęścia wystarczy mi tablica punktów tej krzywej. Dodatkowo napomnę, że pożyteczne będą nawet/też podstawy matematyczne do uzyskania efektu...
Liczba i opis błędów będą raczej stałe. Otwórz je jako stałe. Nie wiem, czemu chciałbyś je tablicować i w jaki sposób odwoływać się do tej tablicy. Numerami błędów ? [syntax=delphi]const IE_BADID = 'Błąd otwarcia portu COM'; IE_OPEN = 'tekst błędu'; [...] try //operacje na porcie except On E : EBADIDError do StaticText1.Test:=IE_BADID; On E : IEOPENError...
Witam, czy mógłbym prosić o rozkodowanie VIN: VF38DRHC8CL046168 Z góry dziękuję Charakterystyki pojazdu Model508 Nr APV/PR (obsługa posprzedażna/część zamienna)12966 CJ 1 0279 Data Początku Gwarancji18.06.2012 Numer seryjny silnika10 DYZC 4009966 NRE(homologacja)e2*2007/46*0080*... P4A9667228099 Informacje ogólne RODZAJ PRODUKTUPOJAZD...
const Tablica : Array [1..255,1..2] of integer = ( {001} (1,2), {002} (3,4), ..... {255} (1,2));
Witam, czy pomoglby ktos w rozkodowaniu VF38ERHR8BL025760 POJAZD Model508 Nr APV/PR (obsługa posprzedażna/część zamienna)12560 CJ 1 0846 Data Początku Gwarancji25.05.2011 Numer seryjny silnika10 DYXH 4129398 NRE(homologacja)e2*2007/46*0080*... P4A9691080899 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUPEUGEOT...
Zupełnie zapomniałem o poleceniu SizeOf, które też pozwala na sprawdzenie ile zajmuje sama tablica - np. SizeOf(tablica1). Przepraszam, wyszło na ignorancję moją. Wygląda więc na to, że mniej zajmuje pamięci zadeklarowanie tablic jednozmiennowych niż tablic z obiektów. Co do tablic dynamicznych - cóż nie jestem pewny, czy to będzie dla mnie dobre, albowiem...
Zrób tak :[syntax=delphi]uses idGlobal; procedure TForm.Button1Click(Sender: TObject); var Buffer_I : ARRAY[0..512] of Byte; ABytes : TIdBytes; begin ABytes := RawToBytes(Buffer_I[0], Length(Buffer_I)); IdTCPClient1.IOHandler.Write(ABytes); end; [/syntax]
C5 (X7) KOMBI 5DRZW 2.0 HDi 138 FAP BVM 6 Dane pojazdu Linia produktuC5 (X7) Nr APV/PR (obsługa posprzedażna/część zamienna)13624 CJ 1 0080 Data Początku Gwarancji15.04.2014 OPBHBDM NREe2*2001/116*0360*30 P4A9691400099 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUCITROEN LINIA PRODUKTUC5 (X7) TYP NADWOZIAKOMBI 5DRZW WYKOŃCZENIEWYSOKIE...
Float:=StrToFloat(String(PChar));
Charakterystyki pojazdu Model3008 (T84E) Nr APV/PR (obsługa posprzedażna/część zamienna)13598 89 2 0418 Data Początku Gwarancji20.03.2014 Numer seryjny silnika10 DYZD 4060778 NRE(homologacja)e2*2001/116*0377*16 P4A9803190299 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUPEUGEOT LINIA PRODUKTU3008 (T84E) TYP NADWOZIACROSS...
Ten twój kod, wybacz proszę, ale to bełkot... Rozumiem, że zaczynasz przygodę z programowaniem, ale proponuję jednak przysiąść do tego. Jedno z setek dostępnych rozwiązań twojego problemu, może wyglądać np. w następujący sposób. [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; var tablica : array of integer; tablica_wynik : array of...
Witam Okazało się że program ma wyświetlać tabele jednowymiarową. Poprawiłem trochę kod i upiększyłem go lecz niestety program nie wyświetla tabeli. Zamiast niej pojawia się 0. O co chodzi tym razem. Prosze o pomoc w rozwiązaniu problemu. Oto kod:[syntax=delphi] program tabela; {$APPTYPE CONSOLE} const max=100; var tablica: array[1..max] of integer;...
Charakterystyki pojazdu Model508 Nr APV/PR (obsługa posprzedażna/część zamienna)13099 CJ 1 0143 Data Początku Gwarancji19.11.2012 NRE(homologacja)e2*2007/46*0080*09 P4A9691274299 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUPEUGEOT LINIA PRODUKTU508 TYP NADWOZIAHATCHBACK 4DRZW WYKOŃCZENIEWYSOKA NISKA SILNIKDIESEL TURBO...
Dla mnie ta strona nie działa. Z Service Box Peugeot: 407 HATCHBACK 4DRZW 2.0 HDi 138 FAP BVM 6 Charakterystyki pojazdu Model407 Nr APV/PR (obsługa posprzedażna/część zamienna)11301 CJ 2 0361 Data Początku Gwarancji31.03.2008 NRE(homologacja)e2*2001/116*0297*07 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUPEUGEOT LINIA...
No wlasnie tu jest kot pogrzebany.... rekord potrzebuje okreslonej ilosci danych. Dosc prostym rozwiazaniem jest tablica powiedzmy 4 takich stringow (czyli masz 1020 znakow), pozniej opis dzielisz po 255 znakow i zapisujesz w tablicy....
Ile nie mówi Ci, ile masz stworzyć, ale ile zostało stworzonych. Dlatego po każdym dodaniu inkrementujesz. Ale w ramach funkcji dodajesz raz i tylko raz. BTW - złe przypisanie - to jest tablica wskaźników, a nie rekordów. Dwa - brak rezerwacji miejsca na rekord.
Czy mogę prosić o rozkodowanie nr vin VF38DAHRMFL039508 - wyposażenie 508 HATCHBACK 4DRZW 2.0 HDi 150 FAP (DW10FD) BVM 6 (Z funkcją stop & start) Charakterystyki pojazdu Model508 Nr APV/PR (obsługa posprzedażna/część zamienna)14185 CJ 1 0125 Numer seryjny silnika10 DYZH 4026980 NRE(homologacja)e2*2007/46*0080*26 P4A9810108999 Informacje ogólne RODZAJ...
I to właśnie generuje ten błąd. Albo zapisz potrzebne Ci String-i do pliku tekstowego i odczytuj je z niego, albo podziel ten bardzo długi string w kodzie programu na części, nie przekraczające 255 znaków. Tak jak w tym drugim kodzie. --EDIT-- Jeżeli tak, to nie możesz takiego tekstu wprowadzić bezpośrednio do kodu programu! Albo zapiszesz te "skopiowane...
Np. w taki sposób : var tb1[1..100] of string; [...] begin randomize; Label1.Caption:=tb1[random(9... end; W takim przypadku nie ma znaczenie czy zainicjujesz wartości w tej tablicy. Jeżeli nie, to po prostu nic się nie wyświetli.
Dodatkowo wywala mi błąd, że 'Tabl' jest nieznane Chyba to oczywiste ,że Tabl jest nieznany a widziałeś kiedyś taki typ? Ja zakładam ,że Tabl to jakaś tablica więc stwórz sobie taki typ i wtedy popróbuj. Typ robisz takim sposobem: type Tabl = array[0..1000] of integer;
DELPHI. Mam problem. Utworzyłem tablicę StringGrid 4 x 100. Na formularzu widoczne jest tylko pierwsze 10 wierszy (tak chcę). Wczytuję do tej tablicy różne ilości wierszy z pliku tekstowego (odpowiednie części łańcucha do odpowiednich kolumn). Po wczytaniu tablica na ekranie pokazana jest od 1. wiersza. Chciałbym by program automatycznie ustawił aktywną...
Witam, Korzystam też z Delphi i tam można zrobić taką tablicę danych var Dane : array[100, 100] of byte; a w BASCOM wygląda tak: DIM Dane(100) as Byte; Jest jakieś inne rozwiązanie mojego problemu?
VF38ERHHAFL018290 Charakterystyki pojazdu Model 508 Nr APV/PR (obsługa posprzedażna/część zamienna) 14023 CJ 1 0056 Data Początku Gwarancji 28.04.2015 NRE(homologacja) e2*2007/46*0080*24 P4A 9802998799 Informacje ogólne RODZAJ PRODUKTU POJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTU PEUGEOT LINIA PRODUKTU 508 TYP NADWOZIA KOMBI 5DRZW WYKOŃCZENIE WYSOKA...
Dane pojazdu Linia produktuC4 PICASSO Nr APV/PR (obsługa posprzedażna/część zamienna)12371 FV 2 0268 Data Początku Gwarancji15.10.2010 OPBK00F NREe2*2001/116*0345*13 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUCITROEN LINIA PRODUKTUC4 PICASSO TYP NADWOZIAKOMBI REKREACYJNE WYKOŃCZENIEWYSOKIE ŚREDNIE PLUS SILNIKDIESEL TURBO...
A czy jest (ale tak szczerze ;) ) jakaś konkretna różnica? Tablica jest typu BYTE, f to integer.
Uzycie dynamicznych tablic w Delphi jest rzeczywiscie tylko schowanym interfejsem dla wskaznikow. W takim wypadku to co zostalo, to kopiowanie elementow z tablicy do tablicy, recznie. O ile sie nie myle, Delphi nie pozwala na zabawe pamiecia, to nie C, wiec nie da chyba rady zrobic czegos jak memcpy - przynajmniej nie spotkalem takiej fkcji w Delphi....
tablica dozwolonych wartości i przypisywanie z niej... Do moderatora: Ten temat chyba być powinien w "dla początkujących"
Troszkę mało informacji na temat języka w którym to piszesz ale już mogę ci powiedzieć standardowo nie ma rameczki do zaznaczania (w znanych mi językach programowania) trzeba sobie takąwą zrobić (troche zabawy z tym jest) ewentualnie skorzystać z jakiegoś komponentu (jak dla delphi lub buildera) a pozniej tablica to po prostu nastepna bitmapa ktora...
Znałem takie jedno fajne C. Nazywało się C64 - dobre dla "początkującego, zielonego" programisty i można też było sobie pograć... Na poważnie. Błąd o którym piszesz wynika z tego że TStrings to tablica wielu stringów, a ty chcesz żeby to się równało 1 stringowi. Ten błąd pewnie wystąpi bez względu na język programowania jaki wybierzesz. W Delphi to...
Na delphi to mocno się nie znam ale standardowo należy dopasować do siebie typ stringa oraz dodatkowo może być jeszcze różnica z cdecl po jednej stronie i stdcall po drugiej. więc trzeba to wyrównać. W DLL'ach C pewnie to ANSII czyli prosta tablica zakończona NULL czy podobnym asciiz (nie pamiętam dokładnie). W C++ może to być std::string A w delphi......
Kompilator pod linuxa i Delphi pod windowsa niemają czegoś takiego jak predefiniowana tablica PORT.. trzeba używać wstawek asma, co pod linuxem niedziała (u mnie), emj: skompilować a uruchomić to 2 różne rzeczy...
dla mnie dźwięk to zbiór wartości. Nie znam komponentu i nie wiem, jak zapisuje, ale sądzę, że nie jest to nic innego jak tablica wartości liczbowych. A czy jest dostęp do tego wprost, to nie wiem...
Witam Mam pewien problem, wchodze w glowe alenie moge znaleźć rozwiazania. Chodzi o to aby zadeklarować tablicę N elementową a funkcja w której bedzie uzyta ta tablica bedzie ustalała ilo elementowa jest ta funkcja; np. funkcja -> pamiec(30) bedzie tworzyc tablice 30 elementowa i wykonywac jakies tam swoje obliczenia. Bardzo proszę o pomoc w jaki sposób...
Witam mam następujący problem. Peugeot 307 SW, rok 2003, silnik 1.6 16V benzyna. Nie wyłączały się światła mijania po wyłączeniu silnika i przekręceniu manetki świateł w pozycje zero. Po kilkakrotnym pstrykaniu manetką wyłączały się. Diagnoza wytarły się ścieżki i zwierały się niekiedy. Po usprawnieniu tej manetki (poprawione ścieżki) wszystko wróciło...
Witam! Mam następujący problem: przesyłam dane pomiędzy uP a PC w Delphi przy pomocy komponentu vacomm32. Prędkość transmisji wynosi 115200b/s, odebrane dane z uP zapełniają tablicę stringów. Do pewnego momentu wszystko działa (przesłanie ok. 4kB nie nastręcza problemów), lecz po pewnym czasie poszczególne odebrane bajty zaczynają się "zlepiać", tzn....
Witam Przy pomocy komponentu DrawGrid została stworzona tablica (4 kolumny x 17 wierszy). W założeniu tylko trzecia kolumna ma mieć możliwość edycji tego co się tam znajduje natomiast pozostałe mają być "nieedytowalne". Czy jest jakiś sposób na zablokowanie 1, 2 i 4 kolumny ? Z góry dziękuję. -- pozdrawiam
Witam wszystkich! Mam taki problem, poniżej zamieszczam źródło programu pod TurboPascala i chodzi o to, aby ten programik napisać w Delphi. W tym miejscu prosiłbym o pomoc. Jestem początkującym użytkownikiem Delphi i nie wiem jak się do tego zabrać. :roll: Oto ten program: PROGRAM Kombinacja_n_po_k; USES Crt; CONST Max_el = 100; TYPE Tablica = ARRAY...
Duzo czasu zajmuje czytanie bajt po bajcie z pliku. Sproboj czytac do bufora (np. 8192 byte) naraz. I potem to przetwazaj - w ten sposob odwolujesz sie 8192 razy rzadziej do pliku - operacja dyskowa w tym przypadku jest najdluzsza IMHO. Dodano po 1 Sprobuj tez wczytac najpierw do jakiejs struktury typu tablica - nie odrazu do komorek. Sprawdzisz czy...
a widzisz niby nie problem, ale ja pisałam ostatnio w delphi 4 lata temu i teraz muszę się uczyć krok po kroku, możesz mi jakiś przykład napisać? Dodano po 38 dobra z tablica jakoś sobie poradziłam teraz się męcze z CRC16 w instrukcji do czujników jest podany sposób obliczenia ale w c a nie w delphi czy ktoś mógłby pomóc mi to przetłumaczyć? voidCalcCRC16(unsignedchar*CRC_H,uns...
nie jest to może typ wyliczeniowy, drobne przekręcenie, jednak objaśnie w czym problem to nie program, tylko wyrywek wielkiego programu. Posiadam tablice dynamiczną o polach typu wykaz. Wykaz zawiera wpisy o nazwach A-Z, z których każdy może przyjmować wartość double. Jest to tablica n-wymiarowa, n oczywiście określam każdorazowo. Potrzebuje np. do...
Ale algorytm wyświetlania jest prosty: 1. Pobierz wartość 2. Wstaw na wykres 3. Idź do 1. Za wykres posłuży komponent TChart - bardzo rozbudowany. Za czytanie z pewnością odpowiedzialny będzie jakiś TComPort. Za interpretację i ew. przeliczenie wartości - Ty sama w oparciu o sporządzoną przez kolegę specyfikację przesyłanych danych. Jeśli chodzi o średnią...
Witam Mam plik rekordowy (nie mój) w którym jest zapisana tablica o następujących danych w jednym rekordzie : - integer (4 bajty) - integer (4 bajty) - byte (1 bajt) - boolean (1 bajt) aby ją wygodnie odczytywać stworzyłem type my_type = record i1: integer; i2: integer; b: byte; bo: boolean; end; ale powstał problem ponieważ SizeOf(my_type) wynosi 12...
Dane pojazdu Linia produktu C5 (X7) Nr APV/PR (obsługa posprzedażna/część zamienna) 12516 CJ 1 0303 Data Początku Gwarancji 14.04.2011 OPB H006 NRE e2*2001/116*0360*19 Informacje ogólne RODZAJ PRODUKTU POJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTU CITROEN LINIA PRODUKTU C5 (X7) TYP NADWOZIA KOMBI 5DRZW WYKOŃCZENIE ŚREDNIE WYSOKIE SILNIK DIESEL TURBO DW10CTED4...
Zamiana z DOC czy RTF na plain text to żaden problem... autor pyta jak to zrobić w Delphi (Object Pascal) i dostał odpowiedź. Delphi na pewno nie jest językiem skrytowym i zapewniam, że świetnie się do tego zadania nadaje. Zapewniam też, że mechanizm podany w poradzie jest wystarczający do przesukiwania pliku tekstowego o strukturze jaką opisał autor,...
Proszę o pomoc w znalezieniu błędu w moim programie. Problem tkwi w tym, że program źle liczy mi pierwszą i ostatnią wartość, reszta środkowych wartości wylicza dobrze. Nie potrafię doszukać się błędu. Poniżej zamieszczam treść zadania jak i program. Za każdą pomoc dziękuje. Korzystam z Delfi 7 Zad Dana jest tablica A (1-n) złożona z integer n>=3....
Jeśli dysk zgubił tablice alokacji to ja to źle widze. Wszystko zależy od stopnia zdefragmentowania dysku, jeśli był niedawno całkowicie zdefragmentowany to szanse są spore, jeśli nie to ja to widze w czarny barwach. Kiedyś robiłem takie sztuki że ręcznie dopasowywałem pliki z kawałków, ponieważ zależało mi na jednym projekcie na zaliczenia na uczelni...
Charakterystyki pojazdu Model508 Nr APV/PR (obsługa posprzedażna/część zamienna)13731 CJ 1 0283 Data Początku Gwarancji10.07.2014 Numer seryjny silnika10 DYZL 4011080 NRE(homologacja)e2*2007/46*0080*20 P4A9802301499 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUPEUGEOT LINIA PRODUKTU508 TYP NADWOZIAHATCHBACK 4DRZW WYKOŃCZENIEWYSOKIE...
autko chodzi ok ma moc nie wiem czy wyświetla usterkę silnika bo oczywiście cała tablica nie świeci alw problemem jest stuk w silniku jak wchodzi na obroty jak i przy zchodzeniu z obrotów , stuk podobny do popychacza chydraulicznego gdzie należało by to wykluczy bo regulacja jest w tym silniku płytkowa .Usterka nie narasta ła lecz wyskoczyła nagle .Wymienione...
Witam, Mam za zadanie napisać program warcaby, ale bez żadnej sztucznej inteligencji. Po prostu ma to być dla 2 graczy. I ma to być w konsoli. Z językiem C++ dopiero zaczynam przygodę. Wcześniej było Delphi i Java. Ale dobra, przejdźmy do sedna. Otóż stworzyłem klasę CPionek, wygląda ona na razie tak: class CPionek { private: int kolor; //...
Pisząc o drugiej połowie rozumiałem, że w darmowym trybie kompilatora C zostaje Ci jeszcze połowa pamięci - tak zrozumiałem Twój post. Być może źle. Ale numer. Dobrze, ze nie pomyslalem o 0,5 wyborowej, to tez polowa ;) Jeszcze kilka lat temu tylko tak bym mogl pomyslec. Zrozumialem, ze chodzi Ci o to moje narzekanie na brak czasu, ze co wtedy robi...
Jest tak,po nacisnieciu klawisza klawiatura wysyla sygnal do kompa co zostalo nacisniete, potem wysyla ze zostal kalwisz puszczony. Zwykle obsluge klawiatury zostawia sie BIOSowi lub sytemowi, dzieki czemu mamy np polskie literki, duze male literki itd. Takie podejscie jest latwe i wygodne...ale w przypadkach niektorych gier nie wystarczajace. Nalezy...
Znalazłem w książce kod do kostki. Poprawiłem go i mam takie coś: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Spin; type PointType = Record x,y: Integer end; Punkty = Array[1..1000] of PointType; Wez = Array [1..8] of Real; TForm1 = class(TForm)...
Dla osoby która pierwszy raz widzi kod może i nie, aczkolwiek od razu widać to w dyrektywach. Wszystko zależy od przypadku, jeżeli w programie wiemy że będziemy potrzebowali około 10 razy użyć dokładnie: for(int i=0; i<n; i++) to łatwiej jest ten kod 10 razy pisać czy raz #define FOR(n) for(int i=0; i<n; i++) Jeżeli założenie będzie tablica dwuwymiarowa...
Potrzebuje emulator DS18B20 na atmega8 - mam na PC program do odczytu temp i chciałem w tym programie dodac inne parametry ( np wilgotnosc ) ale nie zmieniajac programu - w scrachpadzie bede wisyłał inne dane nie temperature. ( w bajtach temperatury lub bajtach uzytkownika wolnych 2szt) Aktualnie używam "lampomitari" , ale napisalem przeróbke programu...
Sugeruję zapoznać się z tym tematem: [url=http://www.elektroda.pl/rtvforum/to... - Wielkość struktury tablicy (array) - czy są różnice w deklaracyjne Tam jest wszystko dokładnie opisane.
Mam zapisane wartości funkcji w tablicy np. tab Umiesz rysować linie? Ja trochę nie pamiętam jak się to robiło... ale chyba były to funkcję na Canvas typu MoveTo(x, y); oraz LineTo(x,y); Więc musisz stworzyć pętle typu: for x:=1 to 199 do begin Obiekt.Canvas.MoveTo(x, tab[x]); Obiekt.Canvas.LineTo(x+1, tab[x+1]);...
Ja bym widział tu takie klasy: - Pole (z określeniem położenia i koloru, zawiera też wskazanie na rodzica w postaci planszy) - Plansza (z listą pól, sama zakłada obiekty klasy Pole i zajmuje się ich obsługą) - Pionek (z właściwością określającą kolor oraz z przypisanym obiektem klasy Pole). Rysując planszę: Metoda klasy Plansza odpytuje swoje Pola i...
Rozmawiamy teraz o Turbo Pascalu czy o Delphi/Free Pascal/Lazarus? Pascal (Turbo Pascal/Borland Pascal) nie ma możliwości deklarowania tablic bez podania rozmiaru (tablic dynamicznych). Natomiast Delphi, jak najbardziej. [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type rekord = record dana1 : integer; dana2 : real; end; var tablica...
na pewno nie układaj tyle komponentów bo nie dość że się komp zmuli konkretnie po tym programie, to Ty będziesz to pisał ze dwa lata...jak do każdego z ponad 30tys. komponentów chcesz napisać procedurkę....lol... Użyj TImage, masz tam onMouseDown (taki event) on wykrywa naciśnięcie klawisza myszki nad obszarem i pojade względne (lewy górny róg obrazka...
A, to jak chodzi o losową fugurę, to najlepiej zacząć od tego, aby utworzyć je dynamicznie i zapisać do tablicy. Ale nawet jeśli nie, to możemy takową tablicę utworzyć na podstawie istniejących: [syntax=Delphi]var Shapes: array[0..9] of TShape; ... d:=0; for i:=0 to ComponentCount-1 do if Components[i] is TShape then Shapes[d]:=Components[i];[/syntax](piszę...
Mam taki oto problemik z programem. W programie jest główna forma. Z niej wywoływanych jest kilka form modalnych - w trakcie działania programu po naciśnięciu określonego przycisku. Ale jest problem. Przy kompilacji wyskakuje mi błąd: http://img177.imageshack.us/img177/3184/... Przy krokowym sprawdzaniu programu wychodzi że błąd ten wyskakuje...
Ja bym widział dwie możliwości, w obydwu z posortowaną tablicą pierwszą: 1. w pętli for... po pierwszej tablicy, odejmował od jej i-tego elementu szukany punkt i obliczał wartość bezwzględną tej różnicy. Do tego zapamiętać poprzedni wynik, a kiedy bieżący wynik będzie większy od zapamiętanego, przerwać iterację i zwrócić poprzedni element. 2. Jeżeli...
Witam, Jeżeli efekt końcowy ma być taki jak napisałeś: for i:=2 to 6 do if i mod 2 = 0 then tab[i div 2]:=tab[i-1]+tab[i] Jeżeli ma być 1 z 2, 2 z 3... to: for i:=2 to 6 do tab[i-1]:=tab[i-1]+tab[i] Pozdrawiam
Najprostszy a zarazem edukacyjny sposb to napisanie w pętli for kopiowania znaku do Edit2 jeśli "badany" znak w edit1>=30 lub edit1<=39. Oczywiście jeżeli będziesz potrzebował pseudokodu to mogę napisać, ale myślę, że powinno Ci to wystarczyć. 30 i 39 to dziesiętne wartości znaków numerycznych z tablicy ASCII.
Ta funkcja nic nie zmieni, bo parametry przekazujesz przez wartość. Jeśli chodzi o podmianę dla tablicy rekordów, to zasadniczo się tego nie zrobi. Jeśli tablica klas, to można podmieniać elementy w taki sposób (ale elementy, nie całą tablicę!). Jeśli chcesz całą tablicę podmienić - zrób z niej tablicę dynamiczną lub operuj na wskaźnikach do niej. type...
Dziękuję, za odpowiedź. Ale czy mógłbyś podać jakiś przykład jak to mam zastosować, czytałem sporo o tablicach ale nie potrafię ich zastosować do tych rzeczy które bym chciał zrobić. Pozdrawiam.
Możesz rozwinąć? nie bardzo wiem, co chcesz przesuwać... Chodzi Ci o tablicę rekordów albo listę dynamiczną rekordów?
Z takim kodem jak poniżej, program ci się na 100% "wysypie". [...]while not eof(TF) do begin readln(TF,S); //Pierwszy odczyt - OK if s = '' then begin z:=true; readln(TF,S); //drugi odczyt - bardzo ryzykowne. end; [...] Sprawdzasz na początku pętli while czy doszedłeś do końca pliku, a potem ponownie odczytujesz...
Generalnie jeśli zależy Ci na równomiernym rozkładzie, to oczywiście można to osiągnąć, jednak z wykorzystaniem jednostki zmiennoprzecinkowej, co niestety negatywnie wpłynie na wydajność (sam coś takiego robiłem kiedyś ;) ) Po prostu dzielisz cała długość przez ilość elementów i inkrementujesz liczbę zmiennoprzecinkową wykorzystując do indeksowania...
Witam, problem typowy jednak nie znalazłem rozwiązania w Delphi. Tablica przechowuje dane var Tab1:array[1..20] of Word; Musze przewidzieć że rekordow będzie dużo więcej (>2000), a pojedynczy rekord to "dużo więcej" niż Word. Rozsądnie będzie zwiększać wymiar tablicy w programie dynamicznie w miarę dodawania kolejnych danych, niestety kompletnie...
Tu masz algorytm z książki Pana Sysło "Algorytmy": http://www.oeiizk.edu.pl/informa/rembeck... (na dole strony) pozdrawiam
Oczywiście, że tablice są puste. Musisz je wcześniej wypełnić danymi ;) Gdyby plik współrzędnych miał np taką postać (x,y): 1 4 3 7 3 2 To wczytanie wyglądałoby mniej-więcej tak: [syntax=Delphi]var i,p: Integer; punkty: array of TPoint; plik: TStringList; begin try plik:=TStringList.Create; try plik.LoadFromFile('plik.txt'); SetLength(Tablica,plik.Count);...
To masz dwie - jedną przekazujesz, a drugą zwracasz. Nie rób tak, żeby przekazać wskaźnik i odebrać inny, bo się łatwo w pułapki wpędzisz w projektowaniu - po prostu nieintuicyjne to by było. Uważaj z tablicami dwuwymiarowymi, bo nie jestem do końca pewny, który wymiar jest jak traktowany między Delphi a C. Może bezpieczniej będzie posługiwać się formalnie...
Witam, mam taki oto rekord: program Student1; {$APPTYPE CONSOLE} uses SysUtils; type student = record id:byte; oceny:array[1..10] of real; end; Tab = array of student; var TabG1:Tab; plik:text; n:integer; Procedure PobierzDane (var TabP1:Tab;n1:integer); var i,k,l:integer; begin setlength (TabP1,n1); for i:=0 to n1-1 do begin writeln (' STUDENT ',i+1);...
Ale mówiłem - skoro i zmienia Ci się dajmy na to od 1 do 1000 to jak możesz wykorzystywać ten indeks do tablicy Foto? i jest indeksem tablicy Controls, a tablica Foto w tym przypadku powinna być indeksowana zmienną j
Sprawdzasz listę wszystkich komponentów dla Form1 . Jeżeli klasa komponentu zgadza się z TCheckBox to odczytujesz jego właściwość Checked i zapisujesz odpowiednią wartość do twojej tablicy. W Delphi wygląda to w ten sposób : for x:=0 to Form1.ComponentCount-1 do if Form1.Components[x].ClassType = TCheckBox then if TCheckBox(Form1.Components[x]...
Proszę bardzo : [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type zapytanie = packed record pytanie : string; odpowiedz : string; end; const Ile_pytan = 3; tablica_pytan : array[1..Ile_pytan] of zapytanie = ( (pytanie : 'ile to jest 2 * 2? '; Odpowiedz :'4'), (pytanie : 'ile zostanie, jeeli odejmiesz 5 od 7? '; Odpowiedz :'2'),...
Już dawno nie bawiłem się w Delphi ale jak dobrze pamietam używa sie tam Pascala. 1. Więc jeśli się nie myle pliki powinno otwierać cię tak jak w Pascalu. var pliki:array[1..16] of string; i:integer; p:text; liczba:integer; begin {tu sie powinno znaleść wypełnienie tablicy ścierzkami dostępu} for i:=1 to 16 do begin...
Daj tu deklarację tego swojego obiektu, zobaczymy.
Raczej sam z siebie dziur nie zostawia i ich nie wypełnia... :| Niczego nie usuwasz? W zasadzie najlepiej stwórz swoją własną listę (lub tablicę) TLAbelów i generuj wszystkie dynamicznie dopisując pod odpowiedni element.
[syntax=pascal] { Lista wierzchołków ----------------------------------------... } PglV = ^TglV; // Vertex TglV = packed record x,y,z : real; end; PglArrV = ^TglArrV; TglArrV = array of TglV; // tablica dynamiczna wierzchołków PglListV = ^TglListV; TglListV = record arr: TglArrV; max: Integer; cnt: Integer; end; procedure TglModel.DrawVertex;...
Osobiście uważam że to mało prawdopodobne. Sprawdz czy nie używasz czasem tablicy [1...59,..] lub czy zmienne ktore używasz do indeksowania na pewno mieszczą się w granicach tablicy.
Witam. Mam nastepujacy problem. Musze napisac dwa programy "komunikujace" sie ze soba. Wystarcza mi w zupelnosci tablica z danymi, wypelniana przez jeden program i odczytywana przez drugi. Oczywiscie mozna to zrobic za posrednictwe dysku i jeden program zapisuje plik a drugi odczytuje ale to raczej sposob nie "elegancki" Najsensowniejszym rozwiazaniem...
A może po prostu wczytać cały plik, każdą linijkę jako osobną komórkę tablicy stringów. Zmienić pierwszy element tablicy i zapisać ponownie wszystko do pliku. Nie trzeba nawet używać Memo. Polecam TStringList: http://www.delphibasics.co.uk/RTL.asp?Na...
Proponuję tak zrobić...Na początek inicjacja globalnych zmiennych: Buffer_O : ARRAY[0..cbOutQueue] of Byte; // bufor wyjściowy Buffer_I : ARRAY[0..cbInQueue] of Byte; // bufor wejściowy pod klawiszem ustawiamy: var xxxx:longint; begin for xxxx:=0 to Length(tablica)-1 do Buffer_O[xxxx]:=tablica[...
Integer (-2^31 .. 2^31-1) = (-2147483648 .. 2147483647) Zmiennych globalnych unikaj jak ognia, lepiej zmienną w klasie, a jeszcze lepiej tak jak pokazałem, masz wtedy tą zmienną powiązaną z tablicą.
Witam mam taką strukturę rekordu : [syntax=delphi]TCounter = Packed Record name : string[16] ; value : byte ; time : byte ; end ;[/syntax] oraz tablicę [syntax=delphi]data : array[0... 1024] of byte ;[/syntax] i teraz jak przekopiować record do tablicy zaczynając np od indeksu w tablicy 10 oraz jak przekopiować bajty z tablicy do record również zaczynając...
Ale czemu wrózką? W Pascalu owszem - nadawało się adres. Ale w Delphi po prostu "przypisuje się" zmienną: [syntax=Delphi]var x: Integer; b: Integer absolute x;[/syntax] Prawilnie - stwórz klasę, która udostępni dwie metody dostępu - przez Integer i przez tablicę. W środku obsłużysz zapis, natomiast na zewnątrz nie będziesz szczególnie widział różnicy....
Ecu silnika odczytuje temperaturę z czujnika umieszczonego na silniku, Jest on umieszczony z prawej strony silnika przy pierwszym cylindrze zaraz pod głowicą, jak dobrze pamiętam. Dalej informacja o temp cieczy jest wysyłana po CANalizacji do kabiny. Czujnik temp cieczy na retarderze monitoruje temp przy samym hamulcu długotrwałego działania, pozwala...
tablica delphi tablica tablica stringi delphi otwieranie plików delphi
piekarnik programator silniki kowal dwufunkcyjny ustawić
zgrzewarki kondensatorowe antena polsat ustawienie
Barton Falkon 50 4T Euro 5 – opis pinów sterownika Continental M4L, wtrysk, złącze 18 pin Błąd A53: Temperatura poza zakresem w systemach Carrier
