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,...
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...
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,...
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,...
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...
Niestety program klient nie dostaje odpowiedzi z serwera. Nie wiem czy błąd jest po stronie serwera czy klienta. wysyłanie dancyh na serwer przez klienta działa. Proszę o pomoc. Poniżej kod serwera i klienta. Z góry dzięki za pomoc Klient Proszę pamiętać o używaniu znaczników syntax . Opcja...
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")...
Witam bardzo serdecznie. Nie mam już siły do pewnej rzeczy. Stąd mój post na tym forum... mam pewien program w którym to użytkownik definiuje liczbę wierszy. Póki co liczba jest stała. Nie jestem pewny... wydaje się, że należy wstawić tabelę dynamiczną, jednak tu pojawia się problem, gdyż nie wiem jak...
Mam problem z przypisaniem komponentu TMainMenu,w którym umieściłem zakładki z figurami.Po kliknięciu na figurę z menu musi obliczyć pole figury. Tak mi wylicza do kwadratu. .Fragment Kodu źródłowego; Oczywiście po naciśnięciu przycisku,,Oblicz pole figury"wylicza mi tylko kwadrat.Jak wpisałem do...
Delphi funkcja Zaokr Mam problem z wykorzystaniem funkcji Zaokr przy wyliczaniu zmiennych : i;z Funkcja ma zaokrąglać wyliczenia do 2 miejsc po przecinku na zasadzie (1 do 4) to 0 ; (5 do 9) to 1 W jaki sposób deklarować tę funkcje aby była dostępna do wyliczeń zmiennych : i;z oto...
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 } ...
a Data Module to specjalna formatka w Delphi na którą kładziemy komponenty związane z bazami danych 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; ...
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,...
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,...
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...
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...
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; ...
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...
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...
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...
Widzę, że rzeczywiście klasa TIniFile może zostać użyta automatycznie. Skleciłem coś takiego do zapisu, działa w 100% i zapisuje wszystkie potrzebne mi komponenty opcji z formy OpcjeForm do jednej sekcji [Opcje] w pliku .INI [syntax=delphi]var INI : TIniFile; Licznik: Integer; begin INI...
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; va... idx : integer; f2 : TForm2; ed : TEdit; s : string; begin result:=0; for idx:=0...
Dzień dobry, Próbuję sklecić program wg wzoru odnalezionego pod linkiem 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,...
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...
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,...
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:...
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 ...
Witam, skorzystałem z komponentu Indy Clients/Servers oraz programu jaki znalazłem na poniżej załączam kod: unit UDP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,...
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...
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:...
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...
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...
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...
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...
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....
Poniżej znajduje się kod mojego programu: Jeżeli ktoś udzieli pomocnej odpowiedzi, otrzyma 100 punktów
1. Instalacja Firebird. Wersję instalacyjną Firebird-a można pobrać np. stąd : Instalację kończymy przyciskiem FINISH na ostatnim oknie. Można tam także znaleźć zapytanie, czy chcemy wystartować serwis Firebird w tej chwili. Po poprawnie zakończonym procesie instalacji, w Panelu...
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...
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....
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. Już prawie zapomniałem jak to się pisało w Pascalu (sławne ":=" zamiast "="). Okropnie wielki...
[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:...
Hmm, nie mam teraz na kompie ani Delphi ani Buildera, ale chyba jest Edit1.OnChange. A oprogramowanie tego powinno byc juz proste.
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.
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 ;)...
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 ...
:) 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:...
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...
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
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;...
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; ...
Serdecznie dziękuję :) Poza tym, zauważyłem, że polskie znaki diakrytyczne zapisują się w tej bazie bez żadnych kombinacji. Nawet przy moim angielskim systemie. Wystarczy tylko ustawić kodowanie w IBDatabase na UTF8. Trzeba również pamiętać, że jeden polski znak w TEdit, to 2 znaki w string-u. ...
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...
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; ...
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) ...
Tobie się chyba wydaje, że ci którzy tu szukają pomocy - to sami starzy wyjadacze, którzy wszystko obczajają... Do tego też kilka słów by się przydało TestLPT - to nazwa formy programu ( TTestLPT - nazwa klasy, tworzona automatycznie po nadaniu formie nazwy ) ediPort, ediData -...
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ś...
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) ...
:: 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...
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,...
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ę...
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...
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); ...
Musisz dziedziczyć po TEdit? Do dziedziczenia przeznaczony jest TCustomEdit. To prawda :) Mało praktyki... Choć szkoda, że ten akurat nie posiada ikonki - trzeba ją samemu dorobić :) No i przenosić masę właściwości do publikowanych. Nie jestem pewien, czy to o to chodzi, ale spróbuj wywołać HandleNeeded...
Witam Mam urządzenie i gotowy program exe na PC do jego obsługi. muszę się podrobienia z komunikacją. z tego co widziałem po rozebraniu urządzenia to z 9 piniowego złącza podłączony jest tylko 2 i 3 pin i masa rxd txd gdn. Mam zainstalowany Eltima Software Serial Port Monitor" w którym podglądam zachowanie...
witam Po napisaniu programu w oparciu o artykół : ły/Obsługa_portów_COM_z_poziomu_Delphi_(... 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 różni się tylko liczbami....
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
Witam, mam taki problem: do bazy muszę dodać 37 wartości w wierszu pobranych z 37 pól TEdit umieszczonych na GroupBoxie. Ma byc tak ze w przypadku gdy któreś pole jest puste to w zależnosci czy jest ono w bazie numeric czy varchar wstawiać powinienem null lub ''. Ma ktos moze pomysl jak to rozwiazać? próbowalem...
Program wysyła string pobrany z TEdit i jak zaznaczysz "new line" dodaje znaki #13 i #10.
to nie stosujesz żadnej instrukcji. Za przejmowanie tekstu odpowiadają odpowiednie komponenty, jak np. TEdit czy TMemo. Względne gotowe okienka typu InputQuery,
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...
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ę.
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...
Na formie stawiasz zwyczajny TEdit i w właściwościach tego TEdit-a, zmieniasz właściwość PasswordChar z #0 na np. znak * .
Może coś w ten deseń? Aczkolwiek odradzam. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4:...
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;
Witam Mam problem z dostępem do pliku podczas zapisu bitmapy. Jest to prosty serwer http w delphi który udostępnia stronę www generowaną przez siebie w locie oraz bitmapy do tej strony. Podczas działania gdy przeglądarka łączy się z tym serwerem w celu pobrania strony www czasami na serwerze wywala...
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...
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....
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...
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ł...
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...
A może zrezygnuj całkowicie z TMaskEdit i zrób procedurę walidacji w zwykłym TEdit-cie?
.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...
Taka sytuacja: Mam komponent dziedziczący po TEdit. Do komponentu dodaję jakąś własność. Zmiana tej własności powoduje zmianę tekstu (czy to poprzez przypisanie Self.Text czy SetTextBuf). W dfm ta dodana własność jest zmieniona. Podczas tworzenia formy własność jest przypisywana do komponentu (z DFM)...
W swoim programie w polu Edit1 chcę umieścić wynik poniższego działania z dokładnością jednego miejsca po przecinku, a nakońcu ma być symbol "V": (10/255)*ScrollBar1->Position czy... regulując suwakiem napięcie ma się zmieniać od 0 do 10V. JAk to zrobić? z góry dzięki za pomoc Zamykam. - arnoldziq...
Witam, czy jest możliwość ustawienia jakiejś właściwości kontrolki TEdit, że po wciśnieciu TAB przejdzie do Edita obok a nie do kolejnego w zależności od kolejności tworzenia ? Jeżli mam zapytanie w sql w TQeury z BDE i jego wynik wyświetlam w dbgrid poprzez Datasource to mogę bezpośrednio dokonać...
Masz przed nosem a nie umiesz znaleźć. Połamiesz ręce i nogi na tym Delphi. :) if Pos(Edit1.Text,Znaki)>0 then begin //[...] end;
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++) { ...
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,...
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ść...
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...
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. Żeby sprawdzić, czy to procedury SaveToFile/LoadFromFile nie wnosi jakichś...
Kolega z Łodzi to coś słyszał ale nie do końca pamięta. Nie zaśmiecam sobie pamięci tego typu szrotem. Algorytm na poczekaniu wyczytałem z sufitu. Ponieważ jest "bardzo szybki" może być użyteczny przy wszelkiego rodzaju konwersjach liczba/łańcuch zwłaszcza w układach wyświetlania wielkości fizycznych,...
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; ...
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...
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 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...
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...
Ten błąd odnosi się do tego: [syntax=delphi]procedure TForm1.Oblicz1Click(Sender: TObject); begin Edit7:=(((((Edit13 / Edit14)/Edit1)/Edit15)*Edit16)*Edit18); ... deklarujesz Edit7 (i całą resztę EditX) jako TEdit, to jak chcesz wykonywać jakiekolwiek operacje matematyczne na...
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...
sonda lambda p0171 sterownika solarnego programowanie pilota samochodu programowanie pilota samochodu grafika wiatrak wentylator kanałowy buczy podłączenie radia scenic scenica podłączenie radia scenic scenica elektryczna deska baterie nazwy robotów uszkodzony wtrysk sterujący zmywarka buczy