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....
Sprawa jest bardzo prosta. [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type obiekt = record zmienna1 : Real; zmienna2 : Byte; end; var tablica1 : array [1..1000, 1..1000] of Real; tablica2 : array [1..1000, 1..1000] of Byte; tablica3 : array [1..1000, 1..1000] of obiekt; obj : obiekt; begin writeln('tablica 1 : '+inttostr(1000*1000*sizeof(real)));...
Witam. Wyliczam w swoim programie siły fizyczne działające na każdy z elementów kwadratowej matrycy. Matryca ma 100x100 elementów typu Real, ponieważ siły są liczbami typu rzeczywistego. Odkąd zadeklarowałem tablice: [syntax=delphi]var matryca_zywotnosci : array [0..200] of Integer; matryca_ilosci : array [0..200] of Integer; matryca_wplywow : array...
Upsss ale ze mnie ciezko myslacy czlowiek nie dopisalem ze chodzi o Delphi ...:( No i co z tego, powyższy przykład będzie działać także pod delphi, tylko ja bym proponował dodać do pliku jakiś nagłówek który opisuje ile danych jest w którym wymiarze.
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...
Co do pierwszego pytania to jak coś chcesz dodać do memo to dodajesz przez: for i := 0 to 10 do begin wynik:=w(i,Startx,Starty); memo1.Lines.Add(FloatToStr(wynik... end; Jeśli chodzi o 2 pytanie to dobrze jest. Co do 3. Wszystko działa dopóki dodaje się pliki, które zawierają więcej wierszy niż poprzednie Pamiętaj ,że...
Robiłem kiedyś coś takiego w Turbo Pascalu. W Delphi to będzie jakoś tak (założenie silnik unipolarny, czterofazowy): unit Motor; interface procedure MotorFwdStep; //Krok w przód procedure MotorBckStep; //Krok w tył procedure GoNSteps(n : SmallInt); //Ruch w przód i wstecz procedure Start_Stop_Motor(v0,v1,n : SmallInt); //Zmiana...
ebx, esi i edi są rejestrami które musisz zachować w niezmienionej wersji wracając z funkcji. ebx z niczym extra mi się nie kojaży, ecx działa jako licznik w krótkich rozkazach typu "lawinowego": mov eax,0 ; szukamy zera czyli konca stringu (mov al,0 wystarczy, ale kto tak pisze) mov ecx,-1; max 0xFFFFFFFF znaków do przeszukania mov edi,lpString...
const Tablica : Array [1..255,1..2] of integer = ( {001} (1,2), {002} (3,4), ..... {255} (1,2));
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...
Nie wiem juz w jaki sposób wysłać tablice przez Indy. procedura IdTCPClient.IOHandler.Write nie obsługuje danych typu array. Czy jest jakaś inna możliwość ?
Poszukuje metody stworzenia sporej ilości przycisków. Każdy z nich będzie wykonywał taką samą funkcję, tylko że na danych z innego pola tekstowego. Chciałbym obliczenia te wykonywać w jednej procedurze gdzie na podstawie indeksu przycisku dane do obliczeń pochodziły by z pola tekstowego też o tym samym indeksie. Proszę o poradę jak stworzyć taką tablice...
Witam. Jakim sposobem w delphi wysłać ciąg 96 danych ? w tej chwili obsługuję RS232 przez winapi konfig wygląda tak: // -- wartości flag sterujących portu szeregowego -- dcb_fBinary = $0001; dcb_fParity = $0002; dcb_fOutxCtsFlow = $0004; dcb_fOutxDsrFlow = $0008; // -- fDtrControl -- DTR_CONTROL_ENABLE = $0010; DTR_CONTROL_HANDSHAKE = $0020; dcb_fDsrSensitivity...
Witam. Jestem początkujacy w programowaniu w środowisku Delphi więc potrzebuje Waszej pomocy w napisaniu prostego programu. Zadanie tak brzmi: Mając dane tablice A 1..n złożoną z integer dokonać przesunięcia cyklicznego jej wartości w prawo o k pozycje. Bardzo będe wdzięczny Wam za pomoc. Pozdrawiam.
Nie wiem jakie masz liczby całkowite czy tez nie ale spróbuj StrToInt() funkcja konwertuje ze stringa do inta :) Nigdzie nie widzę żebyś robił coś takiego w załączniku program liczący robiący podobnie jak u Ciebie tylko tam juz mam dynamiczne tablice zauważ [syntax=delphi] for i := 0 to Rozmiar1 - 1 do begin // ladowanioe danych do tablic Tablica1[i]...
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.
A polecę delphi bo niespotkałem się w swoim życiu abym czegoś w nim nie oprogramował (nawet w vb da się wszystko zrobić mimo strasznych opinii). dodam że znam i c i vb i obiekt pascala i jakoś prościej i przejrzyściej pisze się w delphi, ale to moj prywatny gust. Wszystko co tak wzbogaca język c++ da się zaimplementowac w delphi i na odwrót, a obsługę...
Jak chcesz, aby z wiersza x, komórka2, został wysłany tekst, to musisz, podzielić go na poszczególne znaki, zapisać do tablicy char, a następnie symulować jego naciśnięcie, przechodząc przez tablice np. pętlą for().
Dziękuję, obadam co i jak. Dlaczego tablice od Crasher i Arnoldziqa różnia sie z tą ze specyfikacji (anexA) skoro wykorzystywany jest ten sam wielomian?
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...
Robie to dla siebie, ale nie wykluczone, że to będzie moja praca magisterska (za 2 lata ;) ). Do czego chcę to używać? Hmm... żeby przyspieszyć modelowanie różnych prostych obiektów. Na razie to jest prototyp aplikacji, po skończeniu może zamieszczę w dziale DIY. Nie wszystko jeszcze do końca działa. Idea jest taka: masz objekt, umieszczasz go na białym...
w Turbo Pascal'u niestety taka sztuczka Ci się nie uda, natomiast jeśli używasz Free Pascal'a to bez problemu możesz deklarować tablice dynamiczne. Druga rzecz to czy ktoś z Was posiada kod dla pascala tworzacy okno w windowsie ala Delphi ?? Albo jakis kurs ukazujacy jak to wykonac ? wpisz w googlach: "kurs winapi" Pozdrawiam.
Zaznajomiłem się w pewnym stopniu z komponentem VtChart. Szukałem trochę w google, ale nigdzie nie znalazłem jak można dodawać dane do wykresu. Powiedzmy mam tablice n-elementów i chcę aby ich wartości były na osi Y w funkcji X. Czy ktoś potrafi mi pomóc w tej sprawie?
Witam. Głupia sprawa ... mam proste, wyliczyłem tangensa aby dowiedzieć się jaki jest kat między nimi i pogrom.. jak w Delphi zamienić tangensa na kąt w stopniach? tablice odpadają bo muszę mieć dużą dokładność do kilku miejsc po przecinku mam S:= ' tng= '+FloatToStr(Kat1)+' kąt= '+FloatToStr( arctan(Kat1) ); co daje mi:...
Żaden filozof ani nabijacz - napisał Ci w czym problem. Delphi syntax: function Cos(X: Extended): Extended; Description In Delphi code, Cos returns the cosine of the angle X. X is a real-type expression that represents an angle in radians. Takie coś jest w helpie Delphiego na temat funkcji cos. Można sie z tego dowiedzieć, że funkcja cos zwraca cosinus...
Ciekawie jest to zrobione. Nie miałem dłuższego kontaktu z tym komponentem, ale widzę że możliwości ma. Jednak ciągle trzeba zadeklarować tablice comboboxów, ze względu na ten znaczek symbolizujący pole wyboru (coś podobnego do Λ ). Chociaż nie jest on znowu taki niezbędny...
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...
Dzięki, po prostu kombinowałem na wszystkie strony raz to mi nawet jakieś 52,5 wyszło. Zakładam że będzie array of DWord; a wiesz może (bo teraz wychodzą liczby dodatnie) jak taką tablice przekształcić na wykres fali jak w oscyloskopie czyli taka zniekształcona sinusoida (wartości na plus i minus) znalazłem http://www.elektroda.pl/rtvforum/topic48...
Ja widze 2 rozwiązania 1. zaprojektować tablice dwuwymiarową typu string i odczytywać z pliku litery do momentu napodkania spacji, wtedy zmienić odpowiednio wiersz albo kolumne tablicy 2. zdefiniować typ zmiennej typu record zawierającą 3 łańcuchy znaków, zdefiniować tablice w pamięci o elementach typu tego wczesniej zdefioniowanego, zapis i odczyt...
Cały program można wykonać umiejętnie wykorzystując komponenty zawarte w Delphi. Jedyną trudnością jest opracowanie algorytmu przeszukującego plik tekstowy. Można do tego użyć własności znaków ASCII. Tworzymy tablice o 255 elementach może być typy byte lub integer nazwijmy ja TAB. Na początku programu zerujemy wartości w tablicy. Potem zmieniamy wszystkie...
Szukasz najczęściej występujące "piątki" w totolotku?? :) Do tego tematu można podejść na kilka sposobów, zależy, jak szybki musi być "algorytm". Ja spróbowałbym tak: na wstępie posortował liczby w pliku rosnąco, ew.wygenerował z nich nowy, posortowany plik. Następnie dwie zagnieżdżone pętle for (albo for i while ) - pierwsza pętla odczytuje kolejne...
Druga sprawa tablice spróbuj zrobić typu Char a nie string, wtedy każda komórka bedzie miała długość tylko 1 znaku. Ewentualnie można zastosować funkje wbudowane w Winde. Dokładny opis jest w kściążce na temat "RS232 od Delphi do C Buildera". Jeżeli coś potrzebujesz (np. przykładowe programy z tej książki) to napisz a prześle. I jeszcze jedno, sprawdź...
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...
mam taki problem: mam tablice DBGrid z danymi liczbowymi( TDataSource, TTable, DBGrid) o 6 kolumnach, pierwsze 3 zapelniam danymi, ok 20-30 wierszy... ostsatnie 3 zostawiam wolne... na tym samym formularzu mam 3 pola TEdit w ktorych wpisuje pewne liczby... jak napisac procedurke taka aby wartosc liczbowa z 1 edita zostala wpisana do wszystkich wierszy...
Witam, najprościej chyba będzie wrzucić dodatkowe trzy kontrolki ComPort, będziesz miał wtedy ComPort1,ComPort2,ComPort3,ComPort4, i teraz albo masz jedna procedurę (zdarzenie) podpiętą pod wszystkie kontrolki albo dla każdej osobne zdarzenia, lub też bardziej zamotać i zrobić tablice obiektów TComPort i kombinować w tym kierunku. Trudno mi tak z fusów...
Gotowego komponentu nie znam. A jak napisac to moze i bym wiedzial gdyby bylo wiadomo o co w ogole chodzi. Wszystko zalezy czy to ma byc prosty wykres ktory zawsze w calosci widac na ekranie czy moze trzeba oprogramowac mnostwo detali takich jak skalowanie tego wykresu w poziomie i pionie tak zeby pokazac i edytowac jakis fragment wykresu. Najprostrzy...
Witam Czy ktoś z forumowiczów spotkał się może z prostym systemem identyfikacji i rejestracji pojazdów wjeżdżających i wyjeżdżających przez daną bramę (posiada część wjazdową i wyjazdową). Chodzi o to aby na bramie najlepiej bezprzewodowo odczytywano np. włożony w pojazd tag (np. Unique 125kHz lub Mifare - RFID), który swoim wewnętrznym numerem identyfikuje...
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...
Jak masz wszystko w tabelki to wystarczy tyle metod ile używasz rodzajów kontrolek (o ile się dołoży jeszcze jeden parametr do metody oraz jeszcze jedno pole do tabelki). Dowolna rozbudowa i/lub zmiana w projekcie jest wtedy łatwa w implementacji. To samo moge powiedziec o moim kodze. Deklarujesz tablice jak const i w raze czego dopisujesz literke....
Cóż... może to moje osobiste podejście... Chociaż gdy powiedziałem o tym znajomym elektronikom, ich reakcję opisuje najlepiej chyba "internetowe" lool. Osobiście jednak Delphi nie kojarzy mi się ze zbyt stabilną platformą do pisania programów. Szczególnie gdy mamy do przetwarzania dużą ilość danych. Jest to język o dość wysokim poziomie abstrakcji między...
Dzień dobry, mam mały kłopot z przesunięciem bitowym na AVR Studio. Otóż w pewnym miejscu programu, chce sprawdzić, czy na n-tym miejscu liczby stoi jedynka czy zero (binarnie). Więc napisałem: ... przes = szerokosc_matrycy-x-1; potega = 1<<przes; if ((Matryca[y]&potega&... { ... gdzie x zmienia się od 0...
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)...
Float:=StrToFloat(String(PChar));
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...
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...
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.
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...
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ę...
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.
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...
delphi tablice tymczasowe tablice tablice jednowymiarowe
suszarka zatrzymanie suszenia tylny lampa sprinter przemienniki cyfrowe
Dioda zasilania nie świeci mimo sprawnego bezpiecznika Pilot do alarmu Skorpion 2003 - problemy i rozwiązania
