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 Sprobuj rzutowac na typ AnsiChar - ja tak zawsze robilem, wolajac funkcje API :) MessageBox(0, PChar('Najwieksza wartosc wlasna to' + #10#13+FloatToStr(w)), PChar('Wartosc wlasna'), MB_OK); Pozdrawiam
Witam, Na forum ten temat przewija się co chwilę w różnych kontekstach. Wystarczyło poszukać. Ale skoro się nie udało, to jeszcze raz: Np: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; procedure HexToDec(Sender:...
Na bank będzie chodzić o uprawnienia... Poza miejscem instalacji są jeszcze katalogi 'Embarcader' w '\Users'. Pamiętaj o zmianie uprawnień wszystkich podrzędnych.
A nacisnąć F1 i zerknąć do pomocy to nie łaska? procedure Delete(var S: String; Index: Integer; Count: Integer); Description Removes a substring from a string. In Delphi code, Delete removes a substring of Count characters from string S starting with S
no to nie dziwne że wywala ci taki błąd skoro napisałeś tak: klasa.Number := 'XXXXXX'; (rozumiem że := zapomniałeś tu tylko wkleić) a powinieneś napisać tak: klasa.Number := 123456; przecież jeśli coś piszesz w apostrofach 'XXX' to delphi traktuje to jako string (łańcuch tekstowy) a tu numer trzeba podać w postaci liczby! gdybyś miał formatkę i na niej...
Delphi twierdzi, że : [syntax=delphi]property Resource: string read GetResource write SetResource default 0;[/syntax] Więc wychodzi na to, że string. Co do JSON, to to jest STRING. Np. w talkim formacie : [syntax=text]{ "_type": "vm", "name": "A virtual machine", "memory": 1024, "cpu": { "cores": 4, "speed": 3600 }, "boot": { "devices": ["cdrom", "harddisk"]...
bo to wszystko jest źle ;] sprawdź tak: [syntax=delphi] procedure TForm1.Button1Click(Sender: TObject); var dane:string; begin dane := inputbox('okno wprowadzania danych','Podaj imie',''); if Length(dane) <> 0 then Label1.Caption:='Witaj '+dane; end; [/syntax] chyba o coś takiego chodziło ? podstawowy błąd to to, że w if niema żadnego warunku,...
No to jeśli chce PChar,to podaj mu w postaci PChar... [syntax=delphi]SetFileAttributes(PChar(E... +'/System.ini'), FILE_ATTRIBUTE_HIDDEN);[/syntax] Jeśli podajesz tekst wprost, to w rzeczywistości jest to traktowane jak PChar i ewentualnie niejawnie rzutowane na string. Jeśli coś jest wynikiem innej funkcji i jest sklejane...
Nie sądzę, aby były to typy integer, lecz całe obiekty, a to co znajduje się w wywołaniu jest tylko wskaźnikiem. Niemniej, jeśli znajdują się tam typy String (w obiekcie), to dal DLL nie nadaje się do uruchomienia z programami pisanymi na innych platformach. Tak samo String - nie wolno takiego typu stosować przy pisaniu DLL w Delphi bez korzystania...
Witam Jak wspomnieli Koledzy wyzej, nie powinien Ci byc w ogole string tu potrzebny - ale faktycznie czasami moze to byc przydatne - mialem podobnie gdy robilem swoj edytor ;) Gdy tworzysz string, pomiedzy poszczegolne wiersze wstawiasz Chr(13) + Chr(10) albo prosciej #13 + #10 :) string_wynikowy := wiersz1 + #13#10 + wiersz2; Pozdrawiam :)
"wynik:= prostokat.tworz(StrToInt(Edit1.Text),Str... Ta linia tworzy klasę 'prostokat' pobierając dane z pól edycyjnych Edit1 i Edit2, zamieniając je z string na integer i zapisuje wskaźnik do utworzonej klasy w zmiennej 'wynik'.
Witam Moja propozycja jest następująca: mając string z poszczególnymi bitami dzielisz go na kawałki 4-ro znakowe. I wtedy taki czteroznakowy string zamieniasz na odpowiadającą wartość HEX. Potem pobierasz kolejne cztery znaki i znów zamieniasz. Możesz sobie zrobić np. tablicę w której umieścisz np. 100 bitową liczbę. Kolejne dane będziesz pobierał z...
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...
Masz i weź się za naukę! [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; const wyjatki : array[1..3] of string = ('Kuba','Barnaba','Jarema'); var imie : string; mezczyzna : boolean; x : integer; begin mezczyzna:=false; write('Wpisz swoje imie aby sprawdzic czy jestes Mezczyzna : '); readln(imie); if imie[length(imie)] in ['a','A']...
Nie programowałem w Delphi tysiąc lat, ale jedna rzecz mnie zastanawia: s := s[j] Jeśli to działa tak jak myślę, to ten string (s) nie ma prawa mieć więcej niż jedną literę właśnie przez tą linijkę kodu. Niestety nie mam na czym tego sprawdzić. Jeżeli nie trafiłem, powiedz konkretniej co się dzieje, a na pewno coś wymyślimy :) EDIT: widzę...
Hmmm , zdekodowac ???
Procedura wyglada tak: HINSTANCE ShellExecute( HWND hwnd,// handle to parent window LPCTSTR lpOperation,// pointer to string that specifies operation to perform LPCTSTR lpFile,// pointer to filename or folder name string LPCTSTR lpParameters,// pointer to string that specifies executable-file parameters LPCTSTR lpDirectory,// pointer to string that...
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,...
(at)leburaque - ale String i AnsiString to to samo, z tego co pamiętam ;) (zobacz definicję tego drugiego). Dobre podejście :) Tylko nie jestem pewien, czy przypadkiem Insert nie zmieni położenia w pamięci... Znacznie bezpieczniej byłoby po takiej operacji na nowo ustawić P na pozycję wynikającą z poprzedniej + długość dodanego.
type TForm1 = class(TForm) ComPort: TComPort; [...] ComPort.Open; Str := 'Test' + #13#10; ComPort.WriteStr(Str); //wysyła string if ComPort.Connected then ComPort.Close [...] lub : Var b : byte; [...] b:=25; ComPort.Write(b,1) //wysyla pojedynczy bajt lub ich ciąg [...]
zamień sobie początek procedury Button2Click na var cena:real; sztuki:integer; wynik:real; rabat:real; rabatwynik:real; begin cena:=strtofloat(edit1.Text)... sztuki:=strtoint(edit2.Text)... rabat:=strtofloat(edit3.Text)... wynik:=cena*sztuki; problem leżał w tym że do zmiennej typu integer chciałeś...
Witam, proszę oto bardzo prosty przykład jak zapisać i jak odczytać jakieś tam zmienne, które będą zapisane w postaci stringów. (dowolna ilość zmiennych) ;) var sList: TStringList; begin try sList := TStringList.Create; sList.Add('jakaś tam pierwsza zmienna'); sList.Add('jakaś tam druga zmienna'); //............... sList.Add('jakaś tam n-ta zmienna');...
nie mam tu tego programu ale wystarczyło mi wiedzieć to: #include <stdio.h> #include <stdlib.h> #include <string.h> #include "cyacas.h" int main(int argc, char** argv) { yacas_init(); int i; for (i=1;i<argc;i++) { yacas_eval(argv[i]); if (yacas_error())...
Spróbuj, przed połączeniem do bazy, sprawdzić czy ten drugi komputer odpowiada na wywołanie poprzez port 3050 lub sprawdzaj czy serwis jest uruchomiony. uses WinSvc; function ServiceGetStatus(sMachine, sService: string ): DWord; var schm, schs : SC_Handle; ss : TServiceStatus; dwStat : DWord; begin dwStat := 0; schm :=...
[syntax=delphi]var Value:Extended; var Str:String; Str:='12.34'; Value:=StrToFloatDef(StringReplace(Str,'... if IsNAN(Value) then Label1.Caption:='Nie udało się' else Label1.Caption:='Ok';[/syntax]
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...
No właśnie. I nie wiem dlaczego :cry:
Dzieki, czyli poczytam więcej o PLC2011A0 i B0 Powiedz mi, czy można np edytować oprogramowanie ? chciałbym je napisać w troche lepszej wersji graficznej. Przecież są biblioteki DLL do kilku języków programowania. Możesz sobie zrobić interfejs użytkownika jaki chcesz i wysłać mu komendę z programu. Piszę właśnie w C#. To jest banalnie proste: Najpierw...
Witam. Nie znam dobrze Delphi. Ale o ile pamietam zmienna string w Delphi jest zmienna dynamiczna i trzeba jej nadać rozmiar np. zm1:string; SetLenght(zm1, 20); lub zm1:string[20]; Pozdrawiam.
Odczyt FLASH z VALEO opanowany. ALE: O ile odczytywanie eeprom po 1 ramce CAN ( 32kb) trwa 62sec. ( 1 minuta) i jest to do zaakceptowania. O tyle flash jest 48x większy od eeprom Zatem odczyt w takiej formie trwa ok 50minut. Nie robi się tego codziennie i tez można by to zaakceptować ale w 50 minut może się wiele wydarzyć. Zabraknąć prądu itp.... Sprawdziłem...
Float:=StrToFloat(String(PChar));
Sorki , ale naprawdę zależy mi na tym , a w bcb nie widzę nic co mógłbym wykorzystać enum TTypeSort {tsIncrease, tsDecrease}; int __fastcall CustomSortIncrease(TStringList *Lista, int idx1, int idx2) { String cTemp1 = Lista->Strings[idx1]; String cTemp2 = Lista->Strings[idx2]; return CompareText(cTemp1,...
Zapomniałem dodać deklaracji zmiennej Pamiec : var Pamiec:string; Konwersji żadnej nie robie. Z tego co czytałem to w Delphi domyślnie string odpowiada AnsiString. Dlatego wszystko deklarowałem jak widać.
Użyj typu "text" do odczytu z pliku, będziesz mieć gotowe funkcje czytające linijki tekstu do typu string (readln).
no jezeli wpisujesz recznie to mozesz zareagowac w zdazeniu SetEditText. zalozmy,ze string ma 10 znakow (12°45'78'' <- na koncu 2 apostrofy) w skladni zdarzenia SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String) wartosc value to jest aktualnie wpisywany string. robisz warunek: if length(value)=10 then..... i tu reagujesz w sposob...
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...
W moim programie pisanym w Delphi mam nastepujacy problem i prosil bym o rade Mianowicie mam dwie formy , forma glowna Form1 i druga forma Form2 ktora wyskakuje gdy trzeba podac pin kod w Form2 jest jedno edit w ktore wisujemy pin i ponizej jest Bitbtn "OK" po ktorego nacisnieciu zamyka sie Form2 a zmienna string czyli Pin kod jest przenoszona do Form1...
Pokazuje się błąd, że: Incompatible types 'string' and 'integer' Edit1.Text:=Inttostr(Edit1.Text+1) można tak Edit1.Text:=Edit1.Text+'1'; albo tak Edit1.Text:=Edit1.Text+Inttostr(1);
A jaka to jest liczba "123milisekund" ? Delphi wyrzuci wyjątek o niemożności przekonwertowania. Jeśli już chcesz tak zrobić aby w edit'cie mieć liczbę i stringa to z powrotem musisz sobie tą liczbę odzyskać. Możesz zrobić tak: 1. szukasz na którym miejscu w stringu pobranym z edita jest ' ' <-spacja, czyli np: function LastDelimiter ( const Delimiters,...
Mam pewien problem z odczytem danych w delphi nadawanych przez RS232. Do nadawania danych wykorzystałem mikrokontroler który nadaje mi siedmio-znakowy string z częstotliwością co 500ms. Do odczytu w delphi wykorzystałem funkcje WIN API od obsługi Rs232, sam odczyt realizowany jest na timerze ustawionym również na 500ms problem polega na tym, że np wartość...
Zupełnie przypadkowo ;) Kiedyś dawno temu pisałem w Delphi, miałem dłuższa przerwę, dosyć długą, w miedzy czasie sporo pisałem i piszę na avr'y w C++, próbowałem ponownie wróć do Delphi i po krótkim czasie dałem sobie spokój, sięgnąłem przypadkiem po c sharpa, spodobała mi sie jego prostota i konstrukcja nawiązująca do C++, i poszło ;) nie jestem obcykany...
Co znaczy: - "... wypuszcza w postaci string kod procedury, funkcji ..." ? Może jakiś przykład tego co chcesz zrobić?
Dzieki za odpowiedz, str to zmienna typu string do której ładuje sie liczba wysylana z atmegi w przedziale 1-1024, zakonczona #13#10 Logicznie rozumując, na początku jest pusta.
strtoint(revs) To dość wrażliwa funkcja. Wystarczy jakiś mały "dodatek" jak kropka, spacja czy coś podobnego i funkcja się "wywali". Zapisz tę funkcję tak : [syntax=delphi][...] ComPort.Read(RevS, Count);//odczytujemy String z Portu try i:=strtoint(trim(revs)); except on Exception : EConvertError do ShowMessage(Exception.Message); end; [...][/syntax]...
A jak w Delphi zrobić z liczby stringa? W VB robiło się to np tak: dim a as string b as integer b = 10012 a = cstr(b) A tu? Jest jakaś gotowa funkcja?
a kiedy jest wywoływane OnListening ? u mnie nie jest mimo trwania połączenia i odbioru danych.... Jestem za słaby w te klocki :( żeby wysłać string od klienta do serwera to robię po prostu TCPClient.Sendln(string) i to działa w tą stronę, w drugą nie potrafię :(
Witam, Piszę program w DELPHI obsługujący pomiar dwóch czujników DS18B20. Mikro kontroler to ATMEGA32, program w BASCOM. Wszystko ogólnie już działa: wysyłam po UART ciąg znaków jako string i odbieram wybrane przeze mnie znaki o danej ilości funkcją Copy w DELPHI. Korzystam z biblioteki TComPort. Jedyny problem to z Label'i zrobił mi się generator:...
Od 5 dni uczę się programować w Delphi . Wpadłem na pomysł zrobienia niewidocznego zegara , liczącego czas pracy komputera , a następnie zapisujący ten czas do notatnika, jednak z braku doświadczenia ten mój kod jest ubogi i znalazł się problem :). Proszę o pomoc oraz wyjaśnienie. [syntax=delphi] int s2=0; s2++; String czasek; int godzin2,minut2,sekund2;...
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
delphi string koniec growat string łańcuch string
stroić detektor komputer chłodzić cieczą montaż ścianie
blaupunkt hybrydy smartfon dobry zasięg
Zalewanie złączek mosiężnych na rurach PEX betonem - czy to bezpieczne? Problemy z osadzeniem tonera w Xerox 6605