W standardzie nie ma takiej funkcji. Jest w unicie Math : MAX (int1,int2) - zwraca większy z dwóch argumentów integer. MIN (int1,int2) - zwraca mniejszy z dwóch argumentów integer. Mean (Dane : array of Double):Extended - zwraca średnią argumentów. CompareValue (A, B ) - zwraca -1,0,1 w zależności od A<B,A=B,A>B
Tak na szybko : [syntax=delphi] function te9znakow(s1,s2 : string):string; var Polozenie : integer; begin Polozenie:=Pos(s1,s2); if polozenie>=0 then result:=copy(s2,Polozenie+length(s1),9); end;[/syntax]
Napisz tak; procedure TForm1.OnClick1(sender : TObject); begin if TOpenDialog1.Execute then begin //jakies operacje end; end; trzeba na forme przeciagnac kontrolke TOpenDialog :), a OnClick1 to nazwa np buttona :) Pozdro ;)
Jeśli chcesz wywołać z funkcji umieszczonej w dll'u funkcję callback podaną jako parametr, no to właśnie można to zrobić tak jak napisałem wyżej. Deklaracja typu TCallback musi być znana zarówno w dll'u jak i w programie głównym. Funkcja f powinna być zadeklarowana i wyeksportowana w dll'u. W programie głównym trzeba zdefiniować funkcję typu TCallback...
Ta funkcja moze pomóc : [syntax=delphi]function WTSRegisterSessionNotification( hWnd: HWND , // Window handle dwFlags: DWORD // Flags ): Bool; // Return value[/syntax]
Niestety nie podałeś jaki jest błąd. Nie pamiętam dużo z pascala, ale na 99% czepia się tego, że pierwiastek z liczby nie jest raczej liczbą całkowitą i trudno to zapisać w typie integer bez konwersji. Masz dwie możliwości: -Konwersja pierwiasta do typu integer (bodajże funkcja Round) , ale wtedy tracisz całą wartość ułamkową... -Zmiana typu integer...
O jesu. StrPas to funkcja przestarzala z czasow kiedy String byl zapisywany w postaci ShortString (ilosc znakow jako pierwszy bajt). Teraz PChar i String ot to samo wiec robisz String := PChar WskTxt := StrNew(PChar(text)); separator := ','; WskSep := StrNew(PChar(separator))... Wynik := ScanStrSP(WskTxt,...
Jako jeden z tych dwóch pozostałych na świecie programistów Delphi, dorzucę swoje dwa grosze. Błąd jaki otrzymałeś mówi dość wyraźnie: ta funkcja 'tu wstaw nazwę funkcji' nie może być wywołana z tymi parametrami. [syntax=delphi]wynik:=inttostr( (strtoint(edit1.text) - strtoint(edit3.text)) / strtoint(edit2.text) );[/syntax] W tym przypadku, próbujesz...
JIIIS - w pewnych przypadkach wygodniej jest skorzystać z TImage, którego nie trzeba ręcznie przerysowywać ;) i do czego służy w ogóle funkcja Dormant ?? delphi akurat nie znam :/ tom - a w pliku pomocy nie masz? ;) Poza tym BC++B i Delphi to na tyle bliźniacze produkty, że kod - po zmianie systematyki - jest w zasadzie identyczny.
Daj jakiegoś TMemo na formę server-a. W zdarzeniu OnLisening daj jakiś tekst do TMemo i zobaczysz czy ta funkcja są połączone z nadawaniem danych przed klienta. Może musisz dodać do tego serwera jakiś interpreter albo socket manager? Niestety, żadna wersja Delphi jaką posiadam, nie ma tej samej wersji TTcpServer jak twoja i wywołania się różnią :/ Ja...
Dziwne, myślałem, że procesor sam powinien zająć pozostałe procesory logiczne kiedy wykorzysta pełen potencjał podstawowych procesorów... Chyba już nic z tego nie rozumiem. Zająć czym? :P [url=http://pl.wikipedia.org/wiki/Hyper-... Delphi nie znam. W WinAPI jest funkcja [url=http://msdn.microsoft.com/en-us/lib...
Panowie, wątpię czy ten dialog warto dalej ciągnąć. W opisie funkcji GetWindowText pisze że funkcja nie pobierze tekstu z kontrolek obcego procesu. Zamiast niej należy użyć SendMessage +WM_GETTEXT która została specjalnie do tego przystosowana. Autor powinien najpierw przeczytać opis funkcji w swoim/online MSDN.
Tak jak napisalem powyzej to (teoretycznie ,bo nie sprawdzalem dla takiej sytuacji) jezeli w buforze masz 2 bajty a chcesz odczytac 6 bajtow, to funkcja powinna wisiec do czasu az bufor sie nie uzupelni do conajmniej 6 bajtow lub nie zostanie przekroczony timeout
"Migotanie" powstaje w momencie gdy zostaje wywołana metoda BringToFront. Migotanie bierze się z tego, że mechanizm Windows najpierw pokazuje formę w trybie Normal a dopiero potem Maximize. Jeżeli nie pomoże zmiana wartości Position, to poszukaj informacji na temat blokowania mechanizmu pozycjonowania MDI poprzez Windows. Służy to tego funkcja LockWindowUpdate()...
Więc przerób na przyszłość na: [syntax=delphi]procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var Date1,Date2,Row,Str:string; begin ComPort.ReadStr(Str,Count); Memo.Lines.Add(Str); while Length(Str)>0 do begin Row:=Parse(Str,#13); Label1.Caption:='wynik odczytu Date1= '+Copy(Row,1,1);//początek danych Label2.Caption:='wynik odczytu...
co do statusbara to będzie tak: dodajesz sobie "panele" w statusbarze i piszesz takie coś: form1.StatusBar1.Panels[tutaj nr panela liczony od zera].text:=zmienna typu string; rozbicie daty i godziny na kolejne "stringi" jest pięknie opisane w helpie, służy do tego funkcja "datetostr" i "timetostr" co do tray'a to najlepiej jest zastosować jakiś komponent...
No ale w moim przypadku jest trudność bo dochodzi problem z obsługa płótna i nie można uzyskać dostępu z innego modułu (przynajmniej ja nie potrafię) Procedura, czy funkcja może mieć parametry, nieprawdaż :?: W czym problem i po co mieszać w to dll (przynajmniej na tym etapie). Oprócz tego masz jeszcze zmienne globalne...
Ach te tytpy z Delphi swojego czasu tez dały mi w kość, oto rozwiązanie twojego problemu: AnsiString::c_str() ta funkcja zwraca tymczasowy wskaźnik do stringu przekonwertowanego z ansistringu. A wiec w twoim przypadku bedzie to wyglądało tak: if(SaveDialog->Execute()) { ofstream outfile(SaveDialog->FileName.c_str(),ios... outfile.write((char*)&dane,sizeof(mapa))...
W Delphi można zrobić coś takiego : var Color : TColor; R,G,B : Integer; R := Color and $ff; G := (Color and $ff00) shr 8; B := (Color and $ff0000) shr 16; Podejrzewam, że bardzo podobnie będzie w C++. Jeżeli twoje C++ to C++ Builder Borland-a, to powinny być także w module Graphics, funkcje takie jaki : ColorToRGB...
Witam, do dokładnego odliczenia jednostki czasu możesz wykorzystać funkcje GetTickCount, jest to w miarę proste rozwiązanie lub skorzystać z dwóch funkcji QueryPerformanceFrequency(); i QueryPerformanceCounter(); zamieszczam kawałek kodu z użyciem GetTickCount. procedure DelayM(interwal_w_milisekundach:... var Start:longint; begin...
Witam, do ruszenia krokowców z poziomu LPT najlepiej nadaje sie sterownik oparty o układ L297 i L298 poszukaj sobie schematu lub gotowego układu na elektrodzie lub na www.cnc.info.pl tam są fachowcy od strony elektronicznej. Program do uruchomienia takiej płytki ma zadanie wyprowadzić na LPT dwa sygnały STEP i DIR. DIR realizuje kierunek obrotu np....
Uhhh tez dlugo szukalem haka na rysowanie bezposrednie na pulpicie a nie na okienkach jak to ma miejsce przy GetWindowDC(GetDesktopWindow) Ale wkoncu gdzies znalazlem. Uchwycic trzeba odpowiednio ProgMan'a to on pozwala na rysowanie takie jak ty potrzebujesz: function GetDesktopListViewHandle: THandle; var S: string; begin Result :=...
Z moich spostrzeżeń wynika, że wtryskiwacze Delphi czasem się zapowietrzają i bardzo trudno je odpowietrzyć, czasem pomaga tylko brutalne kilkakrotne luzowane nakrętek przewodów HP przy wysokim ciśnieniu na rampie (przy pracującym silniku, czego oczywiście nie powinno się robić). W renault pomaga test wtryskiwaczy , dopiero teraz skojarzyłem że z tego...
Wszystko musi się odbywać w czasie rzeczywistym. Opóźnienie zawsze będzie. Napisz jakie opóźnienie akceptujesz. 30 sekund? 10? 1 sekunda? 50ms? To ma kluczowe znaczenie i zastanów się dobrze, bo wraz ze zmniejszaniem opóźnienia drastycznie będzie rosło skomplikowanie rozwiązania. Drugie pytanie: Czy ta druga tabela ma jakiś swój dodatkowy sekwencyjny...
Zacząłbym od tego: Otrzymujesz wartość zmiennej temperatura równą np. 1871819,25. Jak przemnożysz to przez 16 to okaże się, że wyrażenie (temp1 + (temp2*256)) zwraca wartość 29 949 108. Teoretycznie zmienne temp1 i temp2 nie powinny przyjmować wartości większych od 255, więc wartość maksymalna wyrażenia (temp1 + (temp2*256)) = (255 + (255*256)) = 65535....
Witam! Błędy są w instrukcjach if . 1) Zamiast: [syntax=c] if (imie[strlen(imie)] == "a") y = 2; else y = 1;[/syntax] powinno być: [syntax=c] if (imie[strlen(imie) - 1] == 'a') y = 2: else y = 1;[/syntax] Jeśli chcesz testować ostatnią literę tekstu, to ostatnią pozycją znakową ciągu jest: [syntax=c]imie[strlen(ciag) - 1][/syntax] ponieważ kolejne znaki...
[syntax=delphi]begin if(naszeButy.ItemIndex>=0)then //jeśli zaznaczono jakiś element na liście begin edytowany:=naszeButy.ItemIndex; //zapisz numer tego elementu do zmiennej tabButow[edytowany].id:=edytowany+1; //pole id elementu "edytowany" tablicy tabButow ustaw na numer zaznaczonego elementu na liście plus 1 tabButow[edytowany].nazwa:=nazwa.Text;.....
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...
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...
To sam widzisz że Delphi nie jest najlepszym sprzętem dla BMW.
Czy istnieje zaimplementowana silnia w delphi?? pliz
Jeśli masz program I interfejs Delphi to powinna tam być funkcja Generic OBD , klikasz po lewej stronie w oknie programu. Generic odnajdzie protokół niezależnie od modelu auta. Jeśli nie zainstaluj Autocom też będzie działał z twoim interfejsem.
https://obrazki.elektroda.pl/7656017200_... O komputerach jednopłytkowych czy stare komputery były lepsze od współczesnych platform rozwojowych i SBC? Nie lubię Arduino I to jest jak najbardziej prawda. Arduino to platforma, która miała dać łatwy dostęp do programowania elektroniki ludziom, którzy nie znają się ani na elektronice,...
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...
https://obrazki.elektroda.pl/4504656600_... https://obrazki.elektroda.pl/4128476100_... https://obrazki.elektroda.pl/1757195800_... https://obrazki.elektroda.pl/9734649000_... https://obrazki.elektroda.pl/4717614300_... https://obrazki.elektroda.pl/4176235900_...
Ta funkcja nazywa się TAN. Aby jej użyć, to w programie zaraz po IMPLEMENTATION musisz dopisać: uses Math; Dodano po 1 Proponuję przed napisaniem programu albo kolejnego postu przejrzeć pierwsze 10 stron podręcznika do Pascala.
Witam mam problem z 1.5 dci silnik kręci ale nie odpala, zrobiłem diagnostykę Delphi ds150 i mam błąd DF053 - Funkcja regulacji ciśnienia w rampie , więc wymieniłem zawór w pompie wysokiego ciśnienia i dalej to samo, jak sprawdzam ciśnienie na listwie CR na żywo to coś mi nie pasuje bo po włączeniu zapłonu mam na listwie 1bar, zaczynam kręcić rozrusznikiem...
Pogoria78 proszę: Charakterystyki pojazdu Model508 Nr APV/PR (obsługa posprzedażna/część zamienna)12894 CJ 1 0899 Data Początku Gwarancji29.03.2012 Numer seryjny silnika10 DYZA 4012254 NRE(homologacja)e2*2007/46*0080*07 P4A9691274299 Informacje ogólne RODZAJ PRODUKTUPOJAZD SPECJALNY ZNAK HANDLOWY/TYP ELEMENTUPEUGEOT LINIA PRODUKTU508 TYP NADWOZIAHATCHBACK...
Witam! Piszę aplikację w c++, która ma korzystać z biblioteki dll napisanej w delphi. Do biblioteki nie ma dołączonego żadnego innego pliku z deklaracjami funkcji, tylko sama dll-ka. Z dokumentacji biblioteki wynika, że funkcja którą chcę wywoływać ma następującą postać: function Command(LnId : TLnId; InpStr: string; var OutBufPtr :pchar;...
Witam! Mam problem z przerwaniami w programie pisanym w Delphi. Funkcja Sleep(); daje mi możliwość opóźnienia programu o minimum 1ms ale to dla mnie przynajmniej o połowę za dużo!! Czy istnieje jakaś bliźniacza funkcja do Sleep(); ale umożliwiająca opóźnienia w µs ?? Jeżeli nie to w jaki sposób mogę napisać taką funkcję??
Te "linijki" pobierają obraz załadowany do kontrolki "zdjęcie", przeprowadzają na nim operację (Emboss kojarzy mi się z jakimś filtrem obrazu, ale nie sądzę, żeby to była wbudowana funkcja Delphi), a następnie przenoszą "poprawiony" obraz z powrotem do kontrolki.
Wymieniłem przewody paliwowe na zwykłe gumowe- paliwowe. Przerobiłem powrót z wtrysków, idzie od razu do powrotu do baku. Założyłem zaworek zwrotny między filtrem a pompą, przy samym filtrze. Teraz silnik po długim postoju odpala bardzo dobrze. Paliwo się nie cofa. Pojawił się się niestety następny problem. Samochód ma mało mocy, ciężko wkręca się na...
Niestety ale funkcja bluetooth sie nie podswietla wiec ustawien nie moge zmienic.
Napisać "AnsiReplaceStr" w kodzie, nacisnąć Ctrl+F1 gdy kursor znajduje się na tekście, odczytać z pomocy, w jakim Unicie jest zdefiniowana ta funkcja.
Funkcja ma zaokrąglać wynik wyliczenia do 2 miejsc po przecinku na zasadzie (1 do 4) to 0 ; (5 do 9) to 1 , z ewuntualną możliwością modyfikacji (ile miejsc po przecinku ) np 0,598697 * 4589 +0,003= 2747,423533 *(funkcja)=2747,42(wynik) np 0,598697 * 4589 +0,004= 2747,424533 *(funkcja)=2747,43(wynik) Proszę o pomoc
Super! Tylko co to jest to na początku tego wykresu? Kompletna funkcja w Delphi generująca dane i wysyłająca przez UART To jest jakoś tak, że po każdym odebraniu danych rysujesz bufor od nowa (nawet jak zmieniła się jedna wartość w tablicy, czy każda klatka to całkowicie nowy bufor?). Nie mam urządzenia na biurku dlatego wysyła program i dane od czapy....
SPN 3132 Lewy moduł regulacji ciśnienia osi przedniej – zawór dolotowy Strategia monitoringu Kontrola czujników ciśnienia Odbiór przez klienta/opis objawów • Lampka ostrzegawcza żółta • Lampka kontrolna żółta • Brzęczyk Failure Mode Identification (FMI) FMI 0 Błąd nieokreślony Wskazanie na wyświetlaczu Priorytet 5 Tekst wskazania - Centralna lampka...
pos('elph','delphi')) funkcja zwróci wartość 2 ze strony http://4programmers.net/Delphi/Pos czy o to chodziło ?
funkcja nie jest dostępna z unitu musisz użycz takiej postaci procedure TForm1.Button1Click(Sender: TObject); begin FT_Current_Baud:=31250; Set_USB_Device_BaudRate end; Prawdopodobnie powyższe rozwiązanie jest prawidłowe. W tej chwili nie posiadam jeszcze modułu konwertera ale będzie lada dzień więc na razie ćwiczę na "sucho". Bez podłączonego...
No teraz brzmi lepiej. Pozdrawiam Lubie się podroczyć czasami. znowu trochę przysiedziałam przy programie. Pojawiła się funkcja zapisu kodowania do pliku. Zakładka pomocy, kilka wodotrysków w postaci komunikatów.... No i przybornik, z którego można zakodować każdy moduł - nawet taki którego nie ma na liście, o ile zna się kodowania i klucz. https://filmy.elektroda.pl/4_1620413300....
funkcja delphi timer funkcja funkcja bascom delphi otwieranie plików delphi
umowa sprzedaż zmiana kamera aktywny buczy
sklep elektrody sklep elektrody
Schemat i opis przekaźników Audi A4 B5 Z czego wykonane są drzwi lodówki Samsung BESPOKE, Family Hub, RT3** – materiały, izolacja, uszczelki
