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...
const Tablica : Array [1..255,1..2] of integer = ( {001} (1,2), {002} (3,4), ..... {255} (1,2));
Float:=StrToFloat(String(PChar));
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]
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)));...
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...
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.
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....
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...
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]);...
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 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ł 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...
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ę...
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...
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.
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
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...
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.
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);...
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...
Możesz rozwinąć? nie bardzo wiem, co chcesz przesuwać... Chodzi Ci o tablicę rekordów albo listę dynamiczną rekordów?
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...
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...
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...
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...
Funkcja ma utworzyć _jeden_ element i dopisać go do tablicy a nie wypełnić cała tablicę.
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.
[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;...
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...
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[...
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]...
Tu masz algorytm z książki Pana Sysło "Algorytmy": http://www.oeiizk.edu.pl/informa/rembeck... (na dole strony) pozdrawiam
Poczytaj o tablicach: http://4programmers.net/Delphi/Tablice Znów podeprę się 4programmers. Koncepcji jest tak wiele, jak programistów. Rozwijając myśl kolegi Arnoldziq, należałoby stworzyć tablicę z pytaniami, po kolei je wyświetlać i czekać na odpowiedzi użytkownika. Następnie należałoby sprawdzić poprawność tych odpowiedzi w oparciu o 2 tablicę w...
Daj tu deklarację tego swojego obiektu, zobaczymy.
Tablica dostarczona przez Crasher-a, jest identyczna z tą w moim kodzie. Przyznam, że po prostu ją skopiowałem :)
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...
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
Upsss ale ze mnie ciezko myslacy czlowiek nie dopisalem ze chodzi o Delphi ...:(
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...
poza warunkiem "od dołu" musisz też sprawdzić warunek "od góry" aby nie przekroczyć rozmiaru tablicy.
Mam problem z kodem w Delphi. Ponieważ w C++ w bardzo łatwy sposób można napisać funkcję, która zwraca tablice ( a właściwie wskaźnik do tablicy) Nie wiem jak to zrobić w Delphi. Mam funkcję i zdefiniowany swój typ kod poniżej: type tablica= array of Single; function LP(n:Integer; f0,fpr:Single):tablica; var hlp : array of Single;i:Integer;w0:Single;...
Witam ponownie Lewostronnym sąsiadem wyrazu o współrzednej [1,1] jest wyraz o współrzędnej [n,n] natomiast prawostronnym sąsiadem wyrazu o współrzednej [n,n] jest ten o współrzędnej [1,1]. Starałem się poprawić program i wyszło mi z tych prób coś takiego: [syntax=delphi]program tablica; {$APPTYPE CONSOLE} var tablica: array of array of integer; n,i,j:integer;...
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...
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.
Czyli masz tylko zbiór Y, dobrze rozumiem? W takim razie wystarczy tablica typu prostego (Integer albo coś z Real w zależności od typu), odpada ta kwestia dzielenia. To wszystko, aby skopiować do tablicy.
Nie pamietam juz czy tak moze byc ale poprostu przepisujesz rekord do drugiej tablicy: [syntax=delphi] tablicaskasowanych[kolejny indeks]:=tablica podstawowa[indekskasowanegokerordu] [/syntax] Ogolnie kasowanie: kopia rekordu do tablicy skasowanych usuniecie elemetu z tablicy podstawowej (przesuniecie wszystkich elementow tablic za 'usuwanym' elementem...
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
(at)Autor tematu: Sugeruję zapoznać się z tym wątkiem : [url=https://www.elektroda.pl/rtvforum/t... - Wielkość struktury tablicy (array) - czy są różnice w deklaracyjne
Witam Nie mogę poradzić sobie z prostym problemem. Mianowicie jak przepisać wynik zapytania sqlowego do zmiennych delphi. Przykładowo wywołuje w programie jakies zapytanie w efekcie dostaje jakies dane (które moge sobie np. wyswietlic np za pomoca komponentu DBGrid) interesuje mnie jak te dane przepisac do zmiennych w delphi np do tablicy. Pozdrawiam...
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....
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...
Zanim przeczytalem Wasze posty rozwiazalem problem w sposob jaki proponujecie - w naglowku pliku ilosc pol, calosc zapisywana petlami to pliku txt. Chcialem rozwiazac to definiujac swoj typ tablicowy type Ttablica=array of array of byte; ... var: tablica:Ttablica; plik:file of tablica; Niestety kompilator rzuca sie o linijke z "plik: file of tablica"....
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...
wpisz sobie w przegladarce http://4programmers.net/ i poczytaj troche Delphi jest tak latwym srodowiskiem programistycznym ze szypko znajdziesz sam rozwiazanie na swoj problem :P przeczytaj o tablicach troche ... a ile dajesz za napisanie <hahaha>
Tak tylko pytam off top - a nie można przekazać tablicy z rozszerzeniami jako dane wejściowe?
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...
A co ty teraz na pascala przeszedłes ? readln itp. Czego nie rozumiesz w moim kodzie to ci podpowiem. U ciebie wywala błąd przy readln(p, liczba, liczbaa); // to jest komenda typowo pascalowa :) a nie przy ładowaniu do tablic.
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....
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...
Hmm.... No tutaj, to mnie trochę zaskoczyłeś :P Posortowanie całej tablicy będzie dość skomplikowane :P Można co prawda potraktować dwuwymiarową tablicę jako tablice jednowymiarową, ale za taki trick, to Ci nauczyciel "łapki poprzetrąca" :P Zobacz kod poniżej, który sortuje każą kolumnę tablicy osobno: [syntax=delphi]program Project1; uses SysUtils;...
Problem rozwiązany faktycznie random losował zero a tablica indeksowana jest od 1;)
1. jak przykladamy maske to pole X jest niewazne, moze to byc 0 lub 1 2. if(maska[0][0] == obraz[aktualnex-1][aktualney-1] && maska[1][0] == obraz[aktualnex][aktualney-1] && maska[2][0] == obraz[aktualnex+1][aktualney-1]... { obraz[aktualnex][aktualney] = 1; } to jest w C++, w Pascalu trzeba zmienic == na =, && na AND, no i jeszcze chyba tablice sa...
trochę ci to poprawiłem, ale muszę cię skarcić ponieważ nazywanie procedur np ghghjgh to nie jest dobre rozwiązenie. Zajęło mi to 5min a dodałem ci metodę na rysowanie - przeciągnij wciśniętym lewym przyciskiem na formie, w ogóle to trochę dużo sobie utrudniasz :) Co do animacji to musisz tutaj zastosować odświeżanie (czyszczenie i powtórne rysowanie...
Z tego co doczytałem, to sprawa wyglada tak (będę posługiwał się zapisem Delphi): 1. Tworzysz strumień plikowy (FileStream.Create) 2. Tworzysz obiekt serializacji (np. SoapFormatter.Create z System.Runtime.Serialization.Formatters.... 3. Wykonujesz metodę Serialize podając strumień plikowy i obiekt (tablicę). Serializowana klasa (a więc tablica chyba...
Hm, timera wbudowanego w procka? Czyli licznika? Hm, po pierwsze - potrzebuję mniej więcej próbkować sygnał ok 1kHz (do celów diagnostycznych SI). A później muszę charakterystykę w czasie z tego wykonać w Delphi. Wykonując dokładnie pomiar (co 1ms) mogę olać błędy transmisji po RS (czy później jeszcze nawet radiowo), powtórny przesył, czy prędkość transmisji....
Znalazłem ten program zagrzebany na dysku, całość działała jak generator i oscyloskop w jednym przy użyciu karty akwizycyjnej Advantech'a, tutaj jest fragment dotyczący rysowania przybiegu. Na samym początku plików jest deklaracja i definicja klasy CDrawStatic dziedzicząca po CStatic. Do rysowania trzeba nadpisać metodę OnPaint (wcześniej pomyłkowo...
W zmiennej jest zapisane wiele szyków znaków w formie xxxxxxxxx zzzzzzzzz yyyyyyyy W takim razie dużo lepszym miejscem na przechowywanie "szyków" będzie tablica albo klasa tstrigs.
Witam. Mam komponent Cport i chciałbym przy jego pomocy wykonać serię pomiarów a wynik każdego kolejnego zapisać w tablicy. Jednak coś się sypie i nie wiem czemu. Mógłby ktoś zerknąć na kod i powiedzieć gdzie mogę popełniać błąd? Kod poniżej: Wysłanie do METEXa literki D (zmienna bajt): procedure TForm1.Button17Click(Sender: TObject); begin...
Każdy wyjątek krytyczny można obsłużyć bez znajomości konkretnego błędu., Służy do tego try/except/end. [syntax=delphi]try //kod mogący wygenerować błąd except on e:Exception do begin //procedury obsługi błędu albo showmessage('Błąd : '+e.message); end; end;[/syntax] Błąd "Out of index/bound XX" jest błędem generowanym w przypadku odwołania się do index-u...
2 cyfry HEX to właściwie jest ramka Modbus którą chce podsłuchać i przerobić dalej.
Na szybko "skrobnąłem" prościutki programik, który renderuje napis i zapisuje go do pliku BMP. Możesz zmieniać tekst, kolor tła, rodzaj, kolor i wielkość fontu TTF. Kod źródłowy jest napisany w Delphi 5 Professional. Program jest bardzo prosty, więc nie powinno być problemów z przeróbką na twoje potrzeby.
Witam, Chciałem zapytać, jak odtworzyć dźwięk wygenerowany w programie, który piszę właśnie w Delphi? Np. wygeneruję sinusa i chciałbym go odtworzyć na głośnikach. Dźwięk jest w postaci tablic typu REAL, czy trzeba to jakoś konwertować?
No i już staje sie jasne. Przekazujesz adres zmiennej buffer ( (at)buffer ), co powoduje wskazanie wskaźnika do tablicy, nie zaś samej tablicy! Obowiązkowo masz przekazać adres pierwszego miejsca w tablicy ( (at)buffer ). Wciąż nie zmieniłeś na właściwe typów unsigned long -> longword ?
Pomoc do Delphi!
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]...
A czy Pan Piroman mógłby mi pomóc w wyprowadzeniu tego obrazka po binaryzacji na zewnątrz. Tzn zapisaniu go w postaci innego obrazu bmp, lub jpg. A jeszcze lepiej by było gdyby dodatkowo zapisać go w postaci jakiejś tablicy. Poźniej bedzię to moja tablica współrzędnych punktów do wyświetlenia.
Najpewniejsze jest kilkakrotne użycie Boot and Nuke - wtedy nawet tablicy partycji się nie odzyska...
witam Ja też radze zaczć od bitmap - są bardzo prosto zbudowane, szczególnie monochromatyczne ;) a w pascalu to jeżeli wogóle potrafisz obsługiwać "grafike" to jest troche mała rozdzielczość nie mówiąc już o kolorach!! Delphi polecam jeżeli chodzi o bitmapy to możesz skożystać z gotowych procedur!! A tu masz kawałek źródła programu w Delphi który wczytuje...
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, ...CreateFile(PChar(OpenDialog1.FileName... Pozdrawiam
C używam tylko w avr studio. Piszę w delphi.
Witam, mój problem polega na braku pomysłu przy zrealizowaniu zmiany rozmiaru zaznaczenia. Coś na wzór zwężenia, czy poszerzenia zaznaczenia w Photoshop'ie o zadaną ilość pikseli. Nie mam pojęcia jak miałoby to wyglądać z matematycznego czy algorytmicznego punktu widzenia. Od razu zaznaczam, iż nie chodzi tutaj o skalowanie, bo to całkiem co innego...
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?
Mam to w Delphi. Chcesz?
Chodzi o to o co napisalem :] Jest to jedna z metod wyszukiwania np w bazie danych opiera sie na wyszukiwaniu lancuchowym ale tworzone sa tablice tablic dynamicznych dla kazdej cechy.
Witam Postaram się go poszukać. Liczę że gdzieś mam kopię nagraną na płytę. Dodam tylko że wtedy stworzyłem kod oraz narzędzie pod Delphi (Pascal obiektowy) które ułatwiło mi wygenerowanie tablic ze znakami ASCII. Pewnie można to zrobić prościej, ale wtedy miałem taki pomysł.
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...
A520 - nie, nie do Ciebie ;) jankmich - tekst w Delphi możesz traktować jak tablicę znaków (czyli teskt da znak i-ty w tym tekście). Pętla ma zaś przeskanować całą długość tekstu czyli od znaku 1 do znaku ostatniego, a więc równego długości tekstu, a więc Length(tekst) . BTW - poza pętlami to radzę też pomysleć i zastosować wiedzę o funkcjach warunkowych....
Dodano po 50 Poniższe linijki przypisują wartości do pola, ale po kolei opiszę co i jak: [syntax=delphi] nazwa.Text:=tabButow[StrToInt(naszeButy.... //przypisanie wartości do pola nazwa z tablicy, po wybranym indeksie z pola wyboru naszeButy z tablicy rekordów rozmiar.Text:=tabButow[StrToInt(naszeBut...
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...
Jeżeli nie chcesz zmieniać programu, aby wyglądał jak normalny program Windows, to możesz go (po kilku modyfikacjach) odpalić jako aplikację konsolową : program macierzowy; {$APPTYPE CONSOLE} uses SysUtils; { uses crt; - nie ma takiej biblioteki w Delphi} const N = 10; var r, i, j: integer; tab: array[1..N, 1..N]...
kurcze, ale delphi w którym pisze chyba nie obsługuje komendy goto...
Nie wiem, w jakim języku chcesz napisać ten program. Kiedyś napisałem "rozwiązywator" do Sudoku, źródełko Delphi w załączniku
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...
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...
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ę...
tablica delphi tablica tablica stringi bascom zapis tablica tablica
anoda magnezowy zamontować czujnik czarny czujnik zielony wieczna bateria
pralka indesit cieknie pralka indesit cieknie
Głośnik buczy po włączeniu - co zrobić? Komunikat "Hard disc not exist" w HP HDX 16 - Diagnostyka