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,...
Tym razem masz enter w ciągu tekstowym. Natomiast kod pokazany jest niezgodny z tym z (4) - tam do konwersji podstawiłeś str - po co, skro w T1 jest właściwa wartość? Proponuję inaczej - utwórz pomocniczą zmienną jako pole klasy formatki (czyli do definicji dopisz sobie w części private zmienną typu string). Jak rozumiem, odebranie Entera ma jest sygnałem,...
Witam, Robię obsługę po RS-ie miernika Motech MT 4090. Miernik Ustawiony na Tryb Remote. I teraz kilka dziwnych rzeczy. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Serdeczne dzięki za okazaną pomoc, światełko w tunelu pokazał mi mirekk36 w jednym z jego wcześniejszych postów http://www.elektroda.pl/rtvforum/topic71... Rozwiązanie okazało się banalnie proste, w zasadzie bez pisania ani jednego słowa kodu, genialne ! Dokładnie rzecz biorąc komponent ComDataPacket z jego zdarzeniem OnPacket. Musiałem tylko...
Możesz rozwinąć zwrot "tak jakby później"? Poniżej "tekst wychodzi z Labela i wyświetla się tak jakby w kolejnych liniach" Zadam pytanie inne jak w Delphi przekształcić string w wartość liczbową tzn. np. jak odbieramy 1 , 2 , 3 , koniec linii = 123 "dec" w Basic-u to się robi Liczba:=Val(String) i tu już mam liczbę procedure TForm1.ComPortRxChar(Sender:...
Witam, domyślam się że kod na uC pisałeś w BASCOM-IE ... dodaj na koniec stringa który wysyłasz ComPort.WriteStr('1' + #13#10); Tez stawiam w 99.9% na Bascom'a :D Ale lepiej jest zobaczyc to na wlasne oczy zeby stwierdzic dokladnie. W kazdym razie tak jak piszesz - kazdy string nalezy zakonczyc jakims znakiem i najczesciej jest to CR - 0x0D.
Witam szanownych kolegów Na wstępie powiem, że jestem początkującym programistą Delphi (tyle co w szkole nauczyli podstaw), a z Rsem w ogóle nie miałem do czynienia. Chce napisać program który będzie zbierał sygnał od miernika (sygnał napięciowy 0-2V). Na początek poszukałem jakiś przykładowych programów do obsługi RSa, żeby w ogóle zapoznać się z tematem,...
Ok, dll-ka została przerobiona - typ string został zamieniony na pchar i w sumie problem zniknął tzn. funkcja rozumie komendy wysyłane w omawianym parametrze. Jednak pojawił się następny problem. Biblioteka do poprawnego działania potrzebuje aby użytkownik zdefiniował funkcję alokującą pamięć i przesłał jej adres, taki callback. Gdy w pewnym wywołaniu...
$crystal = 8000000 $baud = 9600 Config Lcd = 40 * 2 Config Serialin = Buffered , Size = 20 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Enable Interrupts Dim Command As String * 1 Dim Temp1 As Integer Dim Temp2 As Integer Dim Status As Byte Dim Numer As Byte Temp1 = 12.1 Temp1 = 30.1...
Otóż zrobiłem sobie program wzorując się na innych podobnych test w delphi i mam taki drobny problem bo nie za bardzo wiem jak dodać do niego podliczanie punktów. Mam taki pomysł żeby za dobra odpowiedź przyjmowało wartość 1 a za złą 0 i na koniec sumowało i pokazywało wynik o to kod programu: unit Unit1; interface uses Windows, Messages, SysUtils,...
Nie możesz przypisywać inta do stringa i odwrotnie: [syntax=delphi] Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);[/syntax] Najpierw tekst zamieniasz na liczbę, później do liczby dodajesz jeden, a na koniec ten wynik zamieniasz na tekst.
OK! Wiadomo co masz odebrać, ale podpowiedz jak jest wysyłana twoja ramka. 1) jednorazowo? 2) cyklicznie, co pewien czas? 3) w odpowiedzi na polecenie, ktore wysyłasz do urządzenia? 4) ma stałą liczbę bajtów? Chodzi o to żeby w programie wykryć początek/koniec ramki. Samo porównanie jest trywialne jeżeli ramkę składać w string(ciąg znaków) Jeżeli założyć,...
wydaje mi się iż nie ma takiej możliwości, aby zmienić pierwszą linijkę... Rewrite usuwa całą zawartość pliku jeżeli plik ten istnieje, Reset otwiera tylko do odczytu, Append - jak sam kolega wspomniał, umożliwia dopisywanie na końcu pliku... Czyli nie da się tego zrobić operując na pliku tekstowym funkcjami rewrite/append :!: Można to zrobić otwierając...
Napisałem parser dla twoich wymagań.. cały bufor to jeden string.. dane zamiast pobierać z rs232 to są pobierane z pliku (dla lepszego testu w porcjach o losowym rozmiarze od 1 do 10 bajtów) i przekazywane do parsera... jedyne co musisz zmienić to źródło danych przekazywanych do AppendToBuf oraz samą obsługe odpowiedzi -> zamienić writeln na co kolwiek...
Piszę program, który ma służyć za dziennik lekcyjny. Oceny, sprawdzanie obecności, uwagi i ma mieć zakładkę dla każdego przedmiotu. Jednak utknąłem i nie wiem co robić mam problem z zapisaniem pagecontrol stringgrida do pliku, odczytaniem tego i działaniem klawiszy na otwartych zakładkach. Oto kod [syntax=delphi]unit dziennikLekcyjnyGP; interface uses...
Wobec tego, czy mogę użyć za StartString tego samego co za StopString czyli #0? Czy wtedy komponent głupieje, bo nie rozróżnia początku od końca? Możliwe. Ale zaglądnąłem do źródeł TComDataPacket i widzę tam że specjalnie jest obsługiwany wariant gdy StartString jest zdefiniowany jako pusty string. Wtedy wszystko co przychodzi jest traktowane jako...
Witam, exek ma z dllki wywołać funkcję, do której przekazuję parametr. Parametr jest stringiem i funkcja również ma zwrócić stringa. Kod dllki: [syntax=delphi] function funkcjaDLL(parametr:PChar):PChar:stdcall... var wynik:PChar; begin wynik:=''; wynik:='Dowolny tekst '+parametr+'koniec dowolnego tekstu'; Result:=PChar(wynik); end; exports funkcjaDLL;...
(at)wd40 przeciez czyta przez bufor (zmienna Count) z tym ,ze czyta po odebraniu znaku i bufor moze nie zawierac wystarczajacej ilosci danych... A czy napis z COMa nie musi kończyć się CR lub CR LF?, readstr chyba czyta napis a nie znak. Ja proponuję czytać za pomocą read(buf, count) po znaku lub kilka znaków i samemu sprawdzać koniec linii function...
Mam małą bazę danych - potrzebuję napisać procedurę usuwającą elementy z kolejki o podanym przez użytkownika nazwisku. Mam już opcję usuwania z początku kolejki oraz wszystkich danych. Będzie się ta procedura jakoś różnić od tamtych? Pozdrawiam. Tutaj deklaracja typów i zmiennych: [syntax=delphi]type lista = ^tlista; tlista = record imie: string[25];...
Po pierwsze, musisz się zdecydować na jedną z metod postępowania z baza danych. Albo pracujesz, na zdefiniowanych tablica, które czytasz i zapisujesz do plików przy starcie i końcu programu, albo operujesz bezpośrednio na plikach. 1 Jak wczytać dane z pliku do tablicy po każdym uruchomieniu programu? Jeżeli zdecydujesz się na tablicowanie danych przy...
Nie wiem czy moje posty są niewidoczne? Dałem wyżej przykład i komentarz, że jak wysyłamy jakiś "string" z BASCOMA to należy po odebraniu odciąć DWA ostatnie bajty którymi są znaki końca linii (CRLF)
Witam, chciałbym użyć DLL'ki napisanej w C# w programi pisanym w Delphi. W związku z tym w Visual Studio Express 2012 napisałem klasę i metody z atrybutem DllExport po to by były dostępne dla Delphi. Chcę docelowo aby funkcja GetCredentials przyjmowała 3 argumenty typu string i zwracała typ string. Nie mam problemu z wynikiem funkcji lecz z przekazaniem...
Pascal jest podobny do delphi a że nie mam skąd wziąć delphi to robię to w pascalu i tak chodzi tylko i wyłącznie o kod środkowy. Mam ten program tylko że w C++ a potrzebuje to mieć w delphi albo pascalu :/ [syntax=c] #include <iostream> using namespace std; int main() { int wp; //Wprowadzana liczba std::string suma; //Czy liczyc sume std::string...
Witam: Dzięki serdeczne za zainteresowanie tematem, wczoraj już nie odpisałem,bo się nie wyrobiłem przed końcem pracy. Wszystko oczywiście gra, zmiany przyniosły pożądany efekt. No .. teraz już sobie łańcucha nie ograniczę ;-). Dzięki serdeczne wszystkim za pomoc. pozdrawiam G.B.
Przykro mi, może to moja wina, ale dalej nie do końca rozumiem, co chcesz osiągnąć. Jedyne co wydaje się mieć sens, to umieszczanie w DDL-u tablic zawierających jakieś stałe wartości, którymi nie chcesz zaśmiecać głównego programu. Natomiast deklaracja tego typu : var [...] tb1[1..100] of string; To chyba jakieś nieporozumienie. Jeżeli...
Dobra już zrobiłem to tak i te wyśrodkowanie też ale nie wiem jak zrobić to żeby liczyło ilość tych plusów albo gwiazdek, ma ktoś pomysł ? [syntax=delphi] program imie; USES Crt; VAR decyzja:integer; x:string; procedure pytanie(var x:string); begin GotoXY(35,13); WriteLn('Podaj imie: '); ReadLn(x); end; procedure gwiazdka; begin pytanie(x); GotoXY(35,13);...
Witam Mam problem z tym komponentem w Delphi , tzn wszystko działa ale nie do końca , używam standardowych procedur jakie są w przykładach : procedure TForm1.Button5Click(Sender: TObject); var Str: String; begin Str := #94 + '2'; Str := str + #13#10; ComPort1.WriteStr(Str); end; procedure TForm1.ComPort1RxChar(Sender:...
Jaca: Funkcja działa pięknie. Miałem z nią jednak pewne problemy. Jak chciałem dodać na koniec zwróconego stringa jakiś ciąg znaków to nie udawało się to. Dla tych co zechcą wykorzystać tę funkcje w swoich programach powiem że zwracany ciąg mieści się na całej pojemności zmiennej string. Aby coś dokleić na koniec trzeba najpierw wyciąć samą ścieżkę...
Teraz program bardzo ładnie chodzi. Wyświetla wszystko tak jak powinien. Wielkie dzieki Xanio :!:. Mam teraz następujące pytania. Czy w momencie kiedy wysyłany string przyjmie postać kolejno 0.00 - 00.00 - 000.00 (licznik liczy w zakresie od 0.00 do 200.00 i od 0.00 do -200.00 ) ten sposób zliczania się sprawdzi. Widzę że przejście w zakres minus zero...
Kiedyś napisałem prog. wydzielający ze stringu wpisane liczby. Jka znasz Delphi,na pewno znasz Pascala.Wydzielenie liczb następuje z dowolnego stringu,np ',+ii,123,---,34,mmm,ss,56,,,7890,p' uses crt,strings; var i,j,dl,zn,code:integer; tab:array[1..50] of real; sp,ss:string; function liczba(var j,dl:integer):string; begin sp:=''; while((ss[j]>='0')and(ss[j]<='9'))...
Witam, jak wiadomo (przynajmniej mi narazie) z helpa Bascoma - zwykłe polecenie PRINT generuje na końcu dwa dodatkowe znaki CR i LF również jak wiadomo polecenie INPUT reaguje na znak CR ... co więc się dzieje ze znakiem LF po instrukcji INPUT jeśli mamy zdefiniowany jakiś bufor: Config Serialin = Buffered , Size = 80 Input String_var Noecho i przylatują...
Wstawiłem to ,jest ok z tym ze pobiera tylko ostatni wpis z listboxa (z samego dołu) reszte zadań wykonuje ok wiem że trzeba wprowadzić pętle , dopuki nie wyśle wiadomości wszystkim wpisom z listboxa to nie zakończy nie wiem jak to napisać w programie pobierz 1 wpis z listbox1 wyślij mu wiadomość (to akurat mało ważne) sprawdź czy są jeszcze wpisy w...
Potrzebuję informacji jak mogę dodać do tablicy dynamicznej na jej koniec wartość. Posiadam dwa typy rekordowe w postaci: [syntax=delphi]type dla_marki=record id:integer; marka:string; end;[/syntax] oraz [syntax=delphi]type tab_pocz=record id:integer; wartosc:string; indeks:integer;[/syntax] Dla typu 'tab_pocz' ma tworzyć tablicę dynamiczną. Jest to...
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,...
Ciekawe jest to, że format XML nie pozwala w swojej specyfikacji na używanie w swojej zawartości zarówno pojedynczego jak i podwójnego znaku apostrofu. Zajrzyj proszę tutaj : [url=http://en.wikipedia.org/wiki/List_o... entities in XML. Skoro takie znaki się w XML-u znajdują,...
Wybacz, ale to co napisałeś, to kompletna bzdura :/ Zastanów się proszę, ile to zajmie pamięci : [syntax=delphi]TTabString= array [1..999999] of string;[/syntax]I w ogóle jaki ma to sens. Twój program powinien się zawierać w kilku prostych krokach: 1. Odczyt nazwy pliku z klawiatury. 2. Otwarcie pliku. 3. Odczyt linii tekstu z pliku. 4. Wyświetlenie...
Witam, potrzebuję napisać program, który wypisze wszystkie możliwe kombinacje elementów tablicy dla określonej ich liczby, łącznie z powtórzeniami, czyli: Dla tablicy a, b, c, d, e mają być kombinacje 2 znakowe aa ab ac ad ae ba bb itd. Znalazłem kod w C++, który znakomicie spełnia swoje zadanie (kod poniżej). Jednak potrzebuję mieć ten program napisany...
Na jakiej wersji Delphi pracujesz? bo całe rozdzielanie jest tutaj dość czasochłonne a można by uprościć. Ponadto nie bardzo mi się podoba mieszanie funckcji pracujacych na null-terminated string ze stringami. Druga rzecz - bezpieczniej jest używać przy konwersji separatora dziesiętnego systemowej zmiennej globalnej DecimalSeparator . Ponadto zamiast...
Postanowilem podzielic sie z wami moimi doswiadczeniami wykorzystania interfejsu USB we wlasnych projektach. Jak wiadomo interfejs USB jest juz powszechnie dolaczanym interfejsem do mikrokontrolerow wiekszosci producentow na rynku. Sama obsluga USB zarowno po stronie mikrokontrolera jak i pc (a wlasciwie Windows) jest mniej przyjazna niz w wiekszosci...
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...
Wielkie dzięki za kod :!: Lekko przerobiłem kod, i prawie dobrze działa. Najlepiej wyjaśnie co chcę osiągnąć. No więc moim celem jest odczyt wartości, z plików takich jak ten wyżej, porównanie ich z wartościami zawartymi w StringGrid1, i na koniec wyświetlenie tej wartości razem z ilością wystąpienia w pliku i danymi ze StringGrid1 w StringGridzie2....
[syntax=delphi]RichEdit.SelText := ''; RichEdit.SelLength:=0; RichEdit.SelText:=''; //wstawia na początek RichEdit.SelStart:=RichEdit.SelStart+Ric... RichEdit.SelText:='<b/>'; //wstawia na koniec[/syntax] Niestety po wykonaniu dostaje [syntax=html4strict]<b/>[/syntax] :|
Witam może rozwinę problem, korzystam z transmisji szeregowej (DELPHI 7) w progamie (komponent TCiaComPort http://users.pandora.be/sonal.nv/ ), wszystko wygląda ok, tylko gdy odbieram dane z portu szeregowego ( transmisja binarna 19200Bd i dane przychodzą bez przerw pomiędzy paczkami) i zapisuje przetworzone ( tzn. zamienione na string HEX + opis) dane...
Napisz fragment kodu dla przykładu. coś ze starych zasobów [syntax=pascal]Program BazaTeleadresowa; Uses Crt; type TData = record {definicja typu danych strukturalnego} Imie: String[10]; {dane - stringi o okreslonej dlugosci} Nazwisko: String[15]; Tel: String[12]; Ulica: String[20]; Mieszkanie: String[5]; Miasto: String[15]; Kod: String[5]; end; const...
Ale do przesyłu plików binarnych (zawierających znaki z zakresu ACII 0-255) świetnie nadaje się zaprezentowany pierwszy przykład. On także zachowa Ci miejsca występowania znaków #13... A jeśli Ci chodzi o "zlinijkowanie" takiego pliku, czyli wysyłanie buforem, gdzie separatorem jest znak #13 to mniej więcej będzie to tak: (przy okazji porawiłem kod...
Nie ma sensu komplikować. Aby uprościć sprawę, można dać usuwanie spacji w obsłudze OnExit. procedure TForm1.MaskEdit1Exit(Sender: TObject); var wynik : string; begin Wynik:=(Sender as TMaskedit).text; while pos(' ',wynik)<> 0 do delete(wynik,pos(' ',wynik),1); (Sender as TMaskedit).text:=wynik;...
Mam urządzenie, które wysyła przez rs232, ciąg bajtów i na końcu sumę CRC. Odbieram te sześć bajtów w delphi comportem. Wsyswietlając je jako string otrzymuję: Xo_ wg hex będzie to kolejno 58 01 02 6F 5F 08 Ostatni bajt 08hex to suma CRC. Próbowałem obliczyć samemu tę sumę wg róznych procedur crc, jednak otrzymuję inne wyniki. Generator/wielomian...
hmm nie do końca mi o to chodzi bo chciałbym aby za pomocą programu sprawdzić czy coś uległo zmianie konkretnie ten label A gdyby wszystkie label wczytać to Tstinglist iw tedy sprawdzić czy dana linia jest taka sama co wczytany do niej label ?? zrobiłem wczytywanie do Tstringlist var i,j : integer; temp : TStringList; begin temp := TStringList.Create;...
Rób więc jak napisano - otwieraj plik, dopisuj stringa na jego koniec i go zamykaj. Wszelkie operacje dyskowe są buforowane przez system, a i dysk ma swój własny bufor... poza tym zdaje się nie ma to być wersja docelowa a "Debug Release" mający wychwycić jakieś błędy, w wersji finalnej nie będzie już logowania.
Witam Mam ten sam problem... Niem wiem który Unit blue_17 masz na myśli, więc nie mogę podejrzeć tej 205 linii... W necie znalazłem wskazówkę: we wszystkich polach dataset'u (sqlquery) typu string, w zdarzeniu OnGetText dodaj coś takiego: aText:=CP1250ToUTF8(Sender.AsString); Jednak nie do końca wiem jak to zrobić... Znalazłem dataset w zdarzeniach...
string delphi growat string łańcuch string
driver beyma automatyczny regulacja częstotliwość naczepa schemat
sztuczne obciążenie falownik hybrydowy
Wtryskiwacze Bosch Delphi Siemens – zapowietrzanie układu paliwowego Diesla, nieszczelności przelewów Instrukcja resetu i programowania napędu Hörmann SupraMatic P