To do proste: [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var I : integer; s : string; begin for i:=0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then begin s:=TEdit(self.Components[i]).name+'='+TE... //store s bla, bla bla end; end;[/syntax] Oczywiście zamiast 'self' można wstawić np. nazwę...
Proponuje zapoznac sie z FindComponent()
Może to i działa, ale nie w BCB 6 (to nie jest Delphi...). Komponent TEdit z VCL nie ma zmiennej Active, ani niczego podobnego. Przynajmniej nie rzuciło mi się w oczy. Jakby to było proste, to bym nie pytał. ;) Pozdrawiam.
no dzieki, probuje wpisac cos takiego, ale wyskakuje mi blad: " declaration expected but WITH found", nie podoba mu sie takze " edit" i " first", domyslam sie ze trzeba cos pisac przed with, ale nie wiem co...wiec prosze o pomoc, bylbym wdzieczny
Możesz nawet sprawdzać, kto jest Senderem i jemu zmieniać (Sender as TEdit).Color = .....
A może zrezygnuj całkowicie z TMaskEdit i zrób procedurę walidacji w zwykłym TEdit-cie?
Ja dziedziczyłbym normalnie, po TEdit. Zrobiłbym własny override OnChange i wywoływał inherit w zależnosci od statusu.
Należy napisać TStringList i nacisnąć F1!
lub funkcją edit1.text:=formatfloat('maska',zmienna)... gdzie maska = '0.0'
Skoro odwołujesz się do poszczególnych form po nazwie, to równie dobrze możesz odczytać po nazwie wartości poszczególnych pól. [syntax=delphi]function TForm1.SumujWszystkieFormy:Currency; var idx : integer; f2 : TForm2; ed : TEdit; s : string; begin result:=0; for idx:=0 to i do begin s:='0'; f2:=TForm2(Form1.FindComponent('Forma'+I... if...
Witam!!! Mam pytanko :Właściwość interval działa w milisekundach ,czyli muszę wpisać 1000 żeby mieć akcję za sekundę . Np . mam taki program ; begin Timer1.Interval := StrToInt(Edit1.Text); Timer1.Enabled := true; end; Wpisuję w TEdit 1000 i za 1 sekundę uruchamia mi się TTimer . A jak zrobić żeby po wpisaniu w TEdit 1 za sekundę uruchomił mi się TTimer...
mam tam true hmm
Wystarcz użyć opcji SZUKAJ. Są tysiące wątków na ten temat. Np. tutaj : [url=http://www.elektroda.pl/rtvforum/to... z delphi - kalkulator
Mozesz zrobic to tak - Okno[X]:=TEdit.Create(Self); - do tak stworzonego elementu odwolywac sie mozesz poprzez jego nazwe i index, co jest bardzo latwe i czytelne.
to nie stosujesz żadnej instrukcji. Za przejmowanie tekstu odpowiadają odpowiednie komponenty, jak np. TEdit czy TMemo. Względne gotowe okienka typu InputQuery,
Utworzyłem sobie testową bazę danych : http://obrazki.elektroda.pl/9418278000_1...
Nie czuję się weteranem Delphi, korzystam, ale jestem słaby... [syntax=delphi]for i := 0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then TEdit(self.Components[i]).enable := False; else if (self.Components[i] is TCheckBox) then TCheckbox(self.Components[i]).enable := False; else if (self.Components[i] is Txxxxxx) then .... .... ....[/syntax]
P.S Co kolega ma na myśli mówiąc o porządnym nazywaniu kontrolek, może jakiś przykład :?: Jak otworzysz to źródło za miesiąc, to zrozumiesz :P np.: TForm frmMain; TForm frmLogowanie; TButton btnOk; TButton btnOblicz TEdit edNazwisko;
Program wysyła string pobrany z TEdit i jak zaznaczysz "new line" dodaje znaki #13 i #10.
Hmm, nie mam teraz na kompie ani Delphi ani Buildera, ale chyba jest Edit1.OnChange. A oprogramowanie tego powinno byc juz proste.
W Delphi w oknie Project -> Options w zakładce Version Info jest coś co pewnie pozwala na automatyczną inkrementację wersji programu. Jak to uruchomić ( u mnie cały czas się nie zmienia - chyba że sam nie zmnienię ) i jak w programie w jakimś polu typu TLabel czy TEdit wyświetlić taką informację. Pozdrawiam Zamykam. - arnoldziq
[syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ComPort; type TForm1 = class(TForm) CheckBox: TCheckBox; ProgressBar: TProgressBar; RShow: TEdit; Memo: TMemo; ComPort: TComPort; procedure ComPortRxChar(Sender:TObject;Count:Integ... private procedure SetProgressBar(Value:Integer);...
Dostęp do bazy MS Access-a w Delphi można uzyskać dość łatwo. Na przykład za pomocą komponentów ADO. Potrzebujesz do tego dwóch komponentów : TADOConnection oraz TADOTable. Napisałem na szybko aplikację do połączenia z plikiem MDB, ale jest ona napisana w Delphi 2009, wiec raczej jej pod Delphi 7 nie otworzysz. Nie jest to jednak problem, bo aplikacja...
Na formie stawiasz zwyczajny TEdit i w właściwościach tego TEdit-a, zmieniasz właściwość PasswordChar z #0 na np. znak * . http://obrazki.elektroda.net/2_127076064...
Pozwolę sobie otworzyć temat i może odrobinkę Ci pomóc. Przeanalizuj taki kod : [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSamochod = class(TObject) nazwa : string; opis : string; end; TForm1 = class(TForm) ListBox1: TListBox; Label1: TLabel; Button1: TButton; Memo1:...
Dzięki Oloam dopiero zaczynam i rzeczywiście tego nie zrobiłem teraz chdzi wszystko wyśmienicie. Potrzebowałbym jeszcze podpowiedzi jak z tego Stringa wyciągnąć liczbę tak abym ją mógł wyswietlić w TLabel albo TEdit, docelowo chcę te wartości zmaieścić na wykresie - ma to być forma rejestratora temperatury. Pozdr. Lolek50
Fragment programu gdzie jest dzielenie i ten wyjątek: [syntax=delphi]procedure TForm1.Button11Click(Sender: TObject); begin case op of 1: begin liczba:=strtofloat(s); liczba:=bufor+liczba; end; 2: begin liczba:=strtofloat(s); liczba:=bufor-liczba; end; 3: begin liczba:=strtofloat(s); liczba:=bufor*liczba; end; 4: begin liczba:=strtofloat(s); if liczba...
No i stało się - powstał [url=http://www.dzyszla.aplus.pl/program... komponentów, na które można przeciągnąć pliki :) I pięknie działa. Z jednym tylko problem - chciałem to samo zastosować dla TImage, lecz ta klasa nie dziedziczy z TWinControl, przez co nie ma czegoś takiego, jak WndCreate/WndDestroy. :( I pytanko - czy w zasadzie...
Zadeklaruj zmienną typu string i w niej przechowuj ścieżkę dostępu. W opcjach dodaj TEdit i jego Caption zapisuj do tej zmiennej. Potem niech jest odczytywana przez program w momencie wykonania. Mogłeś załączyć kod programu, a nie skompilowaną wersję.
Ten błąd odnosi się do tego: [syntax=delphi]procedure TForm1.Oblicz1Click(Sender: TObject); begin Edit7:=(((((Edit13 / Edit14)/Edit1)/Edit15)*Edit16)*Edit18); end; [/syntax] Skoro deklarujesz Edit7 (i całą resztę EditX) jako TEdit, to jak chcesz wykonywać jakiekolwiek operacje matematyczne na samym komponencie? Może chodzi Ci o wprowadzone tam wartości?
Zmień deklarację typu TForm1 type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private function Zaokr(const AValue: Double; const ADigit:...
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:...
Dziala , tylko bardziej chodzilo mi o cos takiego zeby wyswietlalo liste pasujacych wynikow Ale najpierw musisz tę listę jakoś utworzyć, lub skądś pobrać, prawda ? Możesz to zrobić, bardzo prosto nawet przy pomocy jednego TEdit-a i np. Jednego TMemo. Umieść na formie jeden TEdit i jedno TMemo. Do zdarzenia OnChange dla TEdit-a napisz taką procedurę...
Napisze w Delphi jak i co a Ty zrobisz to W BCB bo są te same funkcje tylko trzeba uważać na małe i duże litery for i:=0 to ComponentCount-1 do if (Component[i] is Tedit) then (component[i] as TEdit).Text:='Bla bla Bla'; a chyba tak to powinno wyglądać w BCB for (i=0;i<ComponentCount;i++) { //ups nie wiem jak jest w BCB sprawdzanie Typu (TEdit)Component[i]->Text...
W TEdit jest taka właściwość SelText, może w TMemo też jest. Wystarczy przypisać do niej nowy tekst, zastępuje on aktualnie zaznaczony. Jeśli nic nie jest zaznaczone, tekst jest wklejany w miejscu kursora (zasada taka sama jak przy ręcznym wklejaniu ze schowka).
Po co TMemo? Wystarczy TStringList. A najszybciej to zrobić po prostu otwarcie pliku (FileAssign albo AssignFile - nie pamiętam, Rewrtie (choć to Delphi, nie wiem jak BCB) i na końcu zamknięcie). Można też jak najbardziej użyć strumieni pikowych (TFileStream) - to już tak bardziej po obiektowemu ;) Przykłady pod klawiszem F1 po wpisaniu podanych słów...
Witam. Mam Delphi 7 Personal i nie mogę (albo nie umiem) go skompilować, nie wiem dlaczego, może popełniłem jakiś błąd (pomijając to że ten program:) jest bez sensu). Próbowałem tak: Project ----> Compile project lub ctrl+F9 i nie działa (nic się nie dzieje). Dodam że jestem w progrogramowaniu jeszcze zielony:( unit Unit1; interface uses Windows, Messages,...
Ad. 2 W TTable jest property o nazwie Filter , które pozwala filtrować dane z tabeli. Nie chce mi się tego sprawdzać, ale zakładając że można tam wpisać kod sql odpowiadający sekcji where to dla Twojej kontrolki TEdit możesz dać zdarzenie OnChange w której wrzucisz kod typu: ( NazwaFilmu to przykładowe pole w tej tabeli) [syntax=delphi]Table1.Filter...
Tylko że średnio rozumie to co tam jest ja potrzebuję informacji to skopuj i wklej tu. Dodano po 12 I co zrobić żeby po naciśnięciu 1 przycisku włączają się po kolei 4 piny? Dodano po 1 Mój kod [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, zlportio; type...
Witam Usuń dwa ostatnie resety bo przez nie wracasz na poszątek pliku unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type Tdzienne = class(TForm) Edit4: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button1: TButton;...
Witam, Mam taki problem: jak z poziomu Delphi lub C++ uruchomić program "cmd.exe" (win-konsola) i następnie przejąć kontrolę nad jego wejściem i wyjściem? Np. w polu typu TEdit wpisuję "dir", klikam na przycisk, i wynik działania tego polecenia otrzymuję np. w kontrolce TMemo. WAŻNE jest, żeby program "cmd.exe" nie był każdorazowo uruchamiany i zamykany...
nie to są kody błędów do opla Pytałem, czy próbowałes kompilować kod podany przez tzok: unit CodeChecker; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) txtErrorCode: TEdit; txtErrorDescription: TEdit; btnCheck: TButton; procedure btnCheckClick(Sender:...
Witam !!! Już ci wyjaśniam maciek_slon o co mi chodziło . Ten program chodzi na TTimer i wpisuję czas w TEdit i po kliknięciu ukrywam ten program i po tym czasie wyskakuje wiadomość za pomocą ShowMessage i właśnie po pokazaniu się tej wiadomości chciałbym żeby po kliknięciu na ok wyświetliło się z powrotem menu do wpisywania czasu. Ale poradziłem sobie...
Witaj jestem początkujący w Delphi co jest z tym kodem ,że nie działa mi to proszę o pomoc. Chodzi o warunek : unit suma1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Label2: TLabel; Label3: TLabel; Button1: TButton;...
Dzień dobry, Próbuję sklecić program wg wzoru odnalezionego pod linkiem https://www.elektroda.pl/rtvforum/topic3... Niestety nie wiem, gdzie wpisać uprawnienia: <uses-permission android:name="android.permission.SEND_SM... /> Proszę o podpowiedź. [syntax=delphi]unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes,...
Hello! Mam problem. Nie wiem jak wyświetlić w TEdit liczbę float(extended) z większą dokładnością niż te 18 miejsc po przecinku. Używam funkcji FloatToStrF(X, ffFixed, 100, 1000); w ostatniej pozycji mogę wpisać nawet kilka milionów i tak wyświetli tylko te 18 cyfr. A gdy zmienię typ ffFixed na coś innego to jeszcze gorzej ! Z góry dzięki. Zamykam....
Witam ostatni w dziedzinie delphi dostałem ochrzan na forum i przyniosło to skutki :) Za co dziękuję niektórym użytkownikom. Chce w swojej aplikacji zastosować wysyłanie e-mail, poszukałem przykładów jak jest to wykonane i znalazłem na komponentach indi. Wszystko było by w porządku gdyby nie to, iż program pomimo pomyślnej kompilacji i wypełnieniu pól...
Witam. w zdarzeniu onKeyDown formy wyświetlam nr wciskanego klawisza - wszystko działa dla wszsytkich klawiszy tylko wówczas gdy aktywnym obiektem jest TEdit, TMemo, lub forma główna natomiast jeśli aktywnym jest TButton nie zostaje uruchomiona procedura obsługi zdarzenia jeśli przyciskiem jest tab lub kursory - wtedy nimi poruszamy się po przyciskach...
Albo przeedytować kontrolkę tj. przerobić metodę write właściwości TEdit.text i zapisać jako np.TeditNo i używać. Przynajmniej w Delphi. Ale i w C++ też to idzie. Kod żródłowy kontrolek jest gdzieś w katalogu z Builderem.
Witam. Mam sobie w programie różne kontrolki (TEdit, TCheckBox, TButton....) i chciałbym aby po przejściu poprzez TAB ustalić jakąś sensowną kolejność - teraz przechodzi chaotycznie (pewnie tak jak powstawał program). Powinna do tego służyć lista TabOrder ale ona nie działa - co bym w niej nie robił to kolejność zawsze jest taka jak była. Ostatecznie...
Witam. Może spróbuje ci trochę pomóc. Dostęp do plików DBF zazwyczaj uzyskujesz przez BDE - czyli masz tak na prawdę bezpośredni dostęp do plików. Poprzez TTable, po podłączeniu do pliku, w momencie gdy użyjesz metody POST, plik zostanie zaktualizowany. W przypadku baz SQL jest trochę inaczej. Jak sama nazwa (Structured Query Language - strukturalny...
siemanko mam jeszce jedno pytanko do tego tematu... na formularzu oprocz tej tabeli mam jeszce trzy pola Tedit w ktorych wpisuje wartosci liczbowe, wykorzystywane do obliczen razem z tymi z tabeli... chcialbym zrobic cos takiego aby zapisujac dane z tabeli do pliku tekstowego razem z nimi zapisywane byly wartosci liczbowe z tych trzech pol edit, no...
Drodzy koledzy. Wszystko ładnie, ale albo ja mam "specjalną" wersję Delphi 5, albo ta dyskusja jest bezcelowa. Przy każdym dodaniu linii TMemo, karetka jest przenoszona automatycznie do następnej linii, właśnie sugerowaną metodą : SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0); Taki kod : unit Unit1; interface uses Windows, Messages, SysUtils,...
Witam was, To znów ja Karek. Mam taki problem znalazłem Listę kontaktów. http://4programmers.net/Delphi/Gotowce/D... i nie wiem jak ją przerobić kod pod mój program ,ponieważ mój program bot, dzieli się na bota i komunikator, chciałbym tak aby Mam Memo2 i Send z procedurą procedure TForm1.Button8Click(Sender: TObject);...
Ok, poprawiłem zgodnie z Twoją radą i pomysłem: [syntax=delphi]procedure OdczytajKonfiguracje(gdzie_zapisac: String); var INI : TINIFile; licznik: Integer; begin if OpcjeForm.ZapisOdczytCheck.Checked then else gdzie_zapisac := ExtractFilePath(Application.Exename) + gdzie_zapisac; INI := TINIFile.Create(gdzie_zapisac); Lista := TStringList.Create; try...
Wielki dzięki za pomoc arnoldziq. Dzięki Tobie napisałem prosty program symulujący filtr LC typu Π, jeszcze się z nim trochę pobawię i go trochę ulepszę. Jeszcze raz wielkie dzięki!!! Pozdrawiam i zamieszczam kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type...
Kiedys napisalem sobie programik do "glosowania" na posty napisane na onet.pl. Jest tam wlasnie wykonywany js + czyszczenie cookie zeby mozna bylo oddac glos powtornie ,closc umieszczona w timerze zliczajacy ilosc glosow jak i z ustawialnym intervalem (w zaleznosc od szybkosci ladowania strony). Kod (jedna linijka) js umieszoczny jest w edt3.Text. Calosc...
Cześć. Mail mi się udał więc przechodzę dalej. Zainstalowałem komponent THGG i zrobiłem klienta GG, jednak mam pare problemów. Po pierwsze: Muszę przyspamować z 5-10 wiadomości by coś się "odblokowało" i potem wiadomości wchodzą normalnie, zauważyłem też, ze pierwsza wiadomość od danego numeru (po "odblokowaniu") nie dochodzi, a reszta juz tak. Drugi...
Albo ja mam coś nie tak z swoim Lazarusem, albo Ty masz jakiegoś strasznego pecha. Dla testów napisałem sobie program. Dwa edity, które porównują swoją zawartość i jeżeli są takie same, to zmieniają kolor TShape obok nich. http://obrazki.elektroda.pl/4324006200_1... Żeby sprawdzić, czy to procedury SaveToFile/LoadFromFile nie wnosi jakichś...
Witam, mam taki kod w Pascalu, który robi permutacje: P(n,r) = n! / (n-r)! [syntax=pascal]program Permute; {$APPTYPE CONSOLE} uses SysUtils; var R, Slen: Integer; procedure P(var A: string; B: string); var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then begin Write(' {' + A + '} '); {Per++} end else for J := 1 to...
Napisałem prosty kod w delphi z thgg i już mam pierwszą styczność z socketami, choć niezbyt miła - błąd 10060 przy próbie logowania oto mój kod unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, HGG; type TForm1 = class(TForm)...
Cześć, robię ostatnio zestaw zadanek od mojego "korepetytora", lecz niestety na jednym się zatrzymałem. Program ów ma posiadać 2 guziki - jeden losuje liczby z przedziału [-5,5] do StringGrida1, drugi guzik podlicza ile liczb jest takich samych jak w komórce [0,0]. Próbowałem coś pokombinować z ifem. Najbliżej na co wpadłem to to: [syntax=delphi]unit...
Witam, skorzystałem z komponentu Indy Clients/Servers oraz programu jaki znalazłem na http://4programmers.net/Delphi/INDY poniżej załączam kod: unit UDP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer, StdCtrls,IdSocketHandle, ExtCtrls;...
Na razie wymyśliłem coś takiego: unit color; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XiButton; type TForm1 = class(TForm) Edit1: TEdit; ColorDialog1: TColorDialog; Button1: TButton; Edit2: TEdit; procedure Button1Click(Sender: TObject); procedure...
Nie wiem jeszcze jak potem z tych utworzonych komponentów sczytać dane, ale myślę że sobie poradzę, czy w razie problemów jesteś w stanie mi pomoc? Wszystkie rekordy są przechowywane w pamięci, w dynamiczej tablicy Dane, która zawiera rekordy typu TDane, które zawierają trzy zmienne: type TDane = record // Definicja rekordu danych Tekst: string;...
Dla głębszego sprawdzenia zawartości w moim programie zamieszczam kod.Owszem kolega,,wrych'' dobrze mnie zrozumiał, wcześniej przed wpisaniem instrukcji do obliczania figur program wyświetlał figury po zmianie figur z menu i jeszcze zrobiłem ze zmianą kolorów.Program wraz z wyborem figury wyświetlał pola do wpisania boków np: dla kwadratu jeden Edit,a...
Witam, korzystam z pakietu bibliotek MX Components aby połączyć Delphi ze sterownikiem Mitsubishi FX3U, dokładniej rzecz ujmując to używam tylko biblioteki ACTPCCOM. Na jednej formie zrobiłem komunikacje, a na drugiej odbieram i wysyłam dane, problem w tym że gdy tak to jest zrobione to żadnych danych na sterownik nie mogę ani wysłać ani odebrać. Gdy...
Nie działa :( [syntax=delphi] unit Oscyloskop_comport; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort, StdCtrls, ExtCtrls; type TForm1 = class(TForm) BtnOtworz: TButton; Settings: TButton; Wyslij: TButton; EdtMsg: TEdit; ComMemo: TMemo; CBNewLine: TCheckBox; ComPort: TComPort; Image1: TImage;...
Najlepiej najpierw podziel tekst na słowa (oddzielone spacją) i wstaw je do kontenera, np: {=== ... ===} type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject);...
Wklepałem taki kod i nie wiem jak przesłać dane z serwera do klienta. Wie ktoś jak to zrobić? unit Serwer; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdUDPBase, IdUDPClient, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdTCPServer, ComCtrls;...
Zrobiłem sobie taki prosty terminal w Lazarusie i mam jeden mały problem bo Lazarusa znam prawie wcale otóż potrzeba mi wypisywać w Memo linie z portu szeregowego tak jak występują znaki końca linii w terminalu tak ma się stworzyć linia Memo. Teraz natomiast tworzę linię w Memo jak tylko obiorę dane z portu szeregowego problem w tym, że nie pokrywają...
Witam! Jak w temacie. Zrobiłem prosty serwer i klienta TCP z wykorzystaniem komponentów lnet do Lazarusa. Wszystko się łączy pięknie, komunikuje, ale problem przyszedł dopiero, gdy chciałem podłączyć więcej niż jednego użytkownika. Wiadomo, w prostej postaci serwer działa z jednym klientem. Gdy dołączam drugiego, ten akceptuje połączenie, mogę z użytkowników...
.ręce mi już opadają . Witam . Kolejne pytanie . Robię wszystko jak podpowiedziałeś , żadnego dodatkowego kopania w ustawieniach i jest efekt taki . Zrobiłem kawałek aplikacji z kilkoma tedit , radiogroup , i button . Gdy go uruchamiam w win32 tak jak podpowiedziałeś , wszystko chodzi jak zaplanowałem , ale kiedy zmienię z win32 na android i kliknę...
Sorry że tak późno,a wygląda to tak unit Terminal; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ToolWin, ExtCtrls, Grids; var StringGrid1:TStringGrid; <----- TO TA DEKLARACJA !? type TForm1 = class(TForm) CloseComm: TButton; OpenComm: TButton; Send: TButton; Receive: TButton; Label1:...
:: Jak jednak zrobić, by informacje aktualizowały się np. co 10 sekund? Dajesz na formę komponent TTimer i wrzucasz do niego tom procedurkę która jest odpowiedzialna za aktualizowanie. Komponent ten ma taką właściwość jak Interval, podaje się tam częstotliwość odświerzanie w milisekundach. Więc jeśli chcesz odświerzać np. co 10 sekund to trzeba tam...
Witam , mam problem ze sortowaniem . Program działał poprawnie dopóki nie dołączyłem sortowania . Program niby się uruchamia ale po naciśnięciu buttonu chwilkę łapie zawiasa i wywala jakieś dane od procesora . Nie wiem co jest grane . Dodam że samo sortowanie znalazłem w internecie i je tutaj chciałem wykorzystać . [syntax=pascal] unit sortowanie1;...
Witam Dostałem takie zadanie do rozwiązania i nie mam zielonego pojęcia jak to zrobić. Opracować aplikacje, która wykorzystuje komponent Memo do wprowadzania wymiarów prostokąta(długość i szerokość). Nie więcej niż 20 prostokątów. Każda linia Memo zawiera dwa wymiary jednego prostokąta rozdzielone znakiem dwukropka. Okienko główne powinno zawierać także...
Witam Mam program, który zamienia liczbę w systemie HEX na jej odpowiednik w systemie dziesiętnym. Niestety jest to realizowane tylko w polach Edit (czyli moge zamienic tylko jedna liczbe, pózniej trzeba skasować i wpisać kolejną). Wymysliłem że w jednym Memo bede wpisywać liczby HEX, zapisywać je do pliku txt, a następnie w drugim Memo odczytywać ten...
a Data Module to specjalna formatka w Delphi na którą kładziemy komponenty związane z bazami danych https://obrazki.elektroda.pl/2854872900_... Dodano po 9 a Unit1 w całości wygląda tak Dodano po 13 Dziękuję zadziałało takie proste [syntax=delphi] with Unit2.data.IBQuzytkownicy, SQL do begin Close; Clear; Add('select id, login, haslo,...
:) Delphi to chyba tylko Borland:) co innego jak bym napisał Turbo Pascal oto mój kod: unit UART; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CPort, StdCtrls; type TForm1 = class(TForm) BtnOtworz: TButton; BtnSettings: TButton; BtnWyslij: TButton; EdtMsg: TEdit; ComMemo: TMemo; CBNewLine: TCheckBox;...
Na podstawie tego co znalazłem w internecie chciałem napisać na socketach komunikator internetowy, ale większość stron każe w miejscu client.host wpisać adres 127.0.01 - czy to znaczy, że sockety mogą działać tylko i wyłącznie w sieci lan? Kiedy próbuję wpisać inne IP wyskakują mi błędy - 10060 albo 10061. Program działa tylko kiedy wpisze właśnie 127.0.01,...
w tym wypadku na początku wiersza większe i mniejsze od szukanej o np. 100 Nigdy nie używałem Delphi :) Właśnie pobrałem Lazarusa (też go jeszcze nie używałem) i załączam uzyskany program. http://obrazki.elektroda.pl/8546723200_1... Już prawie zapomniałem jak to się pisało w Pascalu (sławne ":=" zamiast "="). Okropnie wielki ten program:...
Ok wiec dolaczam caly kod. Zebym jeszcze wiedzial w ktorym miejscu mam to lapac, bo z tym czyszczeniem to nie bedzie chyba problemu i wstawianiem. Jak masz jakis pomysl co do tego to bylbym wdzieczny :) Pozdro :) unit TrayForm; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, ExtCtrls, Menus, StdCtrls,...
Witam, jako że dopiero zaczynam swoją przygodę z programowaniem, przy pierwszym problemie lekko się zniechęciłem. Mam tu dość dziwny program, zapisujący do pliku po linijce wpisanego tekstu. Zapisywanie jest w 100% poprawne. Gorzej z odczytem. Najzwyczajniej w świecie mi nie działa, i nie wiem co z tym zrobić żeby zadziałało Kod źródłowy: unit Unit1;...
Witam. Brakuje początku. Może poniżej zamieszczę kod "mojego" programu. Są to w zasadzie sklejki fragmentów kodów z książki. unit termos; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls; type TTermostat = class(TForm) RichEdit1: TRichEdit; Odbieraj: TButton;...
witam Po napisaniu programu w oparciu o artykół : http://4programmers.net/Delphi/Artykuły/... napotkałem na błąd, który wyskakuje za każda próbą naciśnięcia przycisków otwórz, i wyslij,a także przy próbie zatwierdzenia settingu cportu. ten błąd to http://obrazki.elektroda.net/23_12358278... różni...
Witam! Mam taki problem otóż mam programik klient-serwer gdzie wysuwanie stacji dysków i wsuwanie działa wyświetlanie błędu także działa ale mam prblem co do zakmnij system windows , wyłącz/włącz monitor, pokaż/ukryj ikony oraz kursor. Mam przypisany kodzik ale nie chcą mi działać te komendy mógłby ktoś pomóc. Poniżej mój kod: KLIENT: [syntax=delphi]interface...
Poprawiłem troche program. Już nie można wpisać ujemnych danych oraz zera. Problem pozostał w momencie obliczania wyniku. Chciałbym żeby w tym miejscu pokazywalo się że podano bledne wartości. Kod źródłowy programu: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math; type TForm1...
Witam wszystkich Na początku chce zaznaczyć, że dopiero zaczynam zabawę z RSem i programowaniem. Chce napisać program który odczytywałby sygnał napięciowy (powiedzmy 0-2 VAC) i pokazywał go w formie wykresu. Póki co do wykresu nie doszedłem wiec to zostawmy. Troszkę zmodyfikowałem gotowy program znaleziony na necie, dzięki pomocy z innego tematu odpaliłem...
Przeciez nic trudnego napisac wlasnego klienta ,nawet wskazane - jestesmy pozbawieni wtedy reklam. Dla przykladu skrobnalem logowanie wg opisu protokolu ze strony podanej wyzej, dziala ,wiec dopisanie reszty nie powinno byc problemem. Na forme 2 edity,button, idhttp i idtcpclient, zakladam ,ze pobieranie danych przebiega bezproblemowo , kod pokazuje...
ok ad 1 mam już dawno za soba a może teraz pomoże ktoś ze scrolBarem zrobiłem już pewne kroki ale nadal cel nie osiągnięty ma ktoś jakieś pomysły?? gdzie jest błąd podpowie ktoś?? Dodano po 2 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFormularz = class(TForm) Naglowek1:...
Siemanko, nie musisz korzystać ze zdarzeń aby doczytać dane z bufora, możesz np. rozwiązać ten problem przez osobny watek który będzie odczytywał dane, może napisz do czego to chcesz wykorzystać. Tu masz namiastkę kody jak możesz to zaimplementować. Ps. tu akurat wykorzystałem do komunikacji klase z paczki synaser. unit Unit1; {$mode objfpc}{$H+}...
Mam duży problem i nie wiem co z tym zrobić :cry: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ColorGrd, ExtDlgs; type TForm1 = class(TForm) Button1: TButton; PaintBox1: TPaintBox; ListBox1: TListBox; ListBox2: TListBox; ComboBox1: TComboBox;...
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,...
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
No wiem :/ Najśmieszniejsze jest to, że kiedyś to robiłem i szło bez problemów. Teraz się coś popsuło :( Tylko co ? Możesz mi podesłać skompilowany projekt? Dodaj tylko proszę jakiegoś TEdita z możliwością wpisania ścieżki bazy danych.
Dowiedziałem się dzisiaj że komponent Tnotebook został czasowo usunięty z Lazarusa z powodu błędów. Załączam gotowy program z dzisiejszych zajęć, może komuś się przyda. 1.Wykorzystaj komponenty TNotebook, TTreeView i TMainMenu do zbudowania interfejsu graficznego. Pasek menu powinien zawierać możliwość wyboru zadania (2. lub 3.), wyjście z programu...
Mam problem z programem w pewnym momencie wyrzuca mi problem którego nie rozumiem. Pomoże mi ktoś? [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5:...
Witam. Mam pytanie czy jest w stanie mi ktoś pomóc znaleźć błąd w kodzie i gdzie go popełniam. Może zacznę jest to program do szyfrowania i deszyfrowania w asm połączony z Delphi tzn szkielet programu zrobiłem w Delphi a sam kod miałem zrobić w asm (funkcja szyfrująca XOR).I tutaj pojawia się dla mnie problem, bo gdy zaczynam szyfrować i to pojawia...
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...
delphi otwieranie plików delphi kalibracja delphi sondy delphi
radia wojskowe faluje obrotomierz panel rekuperator
karta graficzna wzmacniacz mikrofonowy
Podłączenie zaworu trójdrożnego do kotła Vaillant VUW 25 CD Schematy odtwarzaczy DVD Manta - jak znaleźć?