delphi tedit

[delphi] Jak automatycznie zapamiętać dane z editów na formie?

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ę...

[Delphi] Jak sprawdzić i wstawić wartości z 37 TEdit do bazy danych?

Proponuje zapoznac sie z FindComponent()

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Automatyczne zaznaczanie tekstu i ustawienie kursora w TEdit w BCB 6

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.

Jak w Delphi wpisać wartości z TEdit do kolumn TTable w DBGrid?

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

[Delphi] Procedura zmieniania właściwości komponentów

Możesz nawet sprawdzać, kto jest Senderem i jemu zmieniać (Sender as TEdit).Color = .....

[Delphi] Jak pozwolić na puste pole w MaskEdit bez błędu?

A może zrezygnuj całkowicie z TMaskEdit i zrób procedurę walidacji w zwykłym TEdit-cie?

Delphi: Jak uniknąć wywołania OnChange przy tworzeniu komponentu TEdit?

Ja dziedziczyłbym normalnie, po TEdit. Zrobiłbym własny override OnChange i wywoływał inherit w zależnosci od statusu.

[Delphi] Delphi: Jak sprawdzić, czy tekst z TEdit występuje w zmiennej typu string?

Należy napisać TStringList i nacisnąć F1!

[Delphi] Formatowanie wyniku z ScrollBar1 w TEdit z dokładnością do 0.1V

lub funkcją edit1.text:=formatfloat('maska',zmienna)... gdzie maska = '0.0'

[Delphi] - Lazarus - Jak zamknąć wszystkie formy 'Form2' w aplikacji?

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...

[delphi] [Delphi] Jak ustawić Interval TTimer na sekundy z TEdit?

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...

[Delphi] Delphi: edycja rekordów w DBGrid przez DataSource, obsługa TAB i zmiana koloru TEdit

mam tam true hmm

Lazarus: Jak połączyć liczby w TEdit w kalkulatorze?

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

Delphi - jak stworzyć tablicę przycisków i powiązanych pól tekstowych?

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.

[Delphi] [Delphi 5] Jak odczytać dane z klawiatury? Alternatywa dla readkey?

to nie stosujesz żadnej instrukcji. Za przejmowanie tekstu odpowiadają odpowiednie komponenty, jak np. TEdit czy TMemo. Względne gotowe okienka typu InputQuery,

[Delphi] Błąd SQLQuery1: Cannot open a non-select statement w Delphi

Utworzyłem sobie testową bazę danych : http://obrazki.elektroda.pl/9418278000_1...

[delphi] Jak zrobić wszystkie obiekty na TPanel nieaktywne wizualnie?

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]

[Delphi] Delphi i SQLConnection – jak połączyć się z bazą LimeSurvey na zdalnym serwerze?

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;

Jak wysłać dane przez RS232 w Delphi 7 do ATmegi8?

Program wysyła string pobrany z TEdit i jak zaznaczysz "new line" dodaje znaki #13 i #10.

[C++] Jak czytać znak po znaku z pola TEdit po naciśnięciu przycisku?

Hmm, nie mam teraz na kompie ani Delphi ani Buildera, ale chyba jest Edit1.OnChange. A oprogramowanie tego powinno byc juz proste.

[Delphi] Jak automatycznie inkrementować wersję w Delphi i wyświetlić ją w TLabel?

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

Komunikacja USB/RS-232 między Delphi 7 a Arduino - jak to zrobić?

[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);...

[DELPHI] Wyświetlanie i zapis bazy MS Access w Delphi 7

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...

[Delphi] Delphi – ustawienie maskowania hasła w polu tekstowym (gwiazdki lub kropki)

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...

Pascal programowanie obiektowe - Program podający informacje o przedmiocie

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:...

Jak odczytać dane z AVR przez RS232 w Delphi z użyciem TComPort?

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

Jak obsłużyć dzielenie przez zero w kalkulatorze Delphi?

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...

[Delphi] Komponent akceptujący przeciągnięte pliki

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...

[Delphi] Jak dodać okno wyboru ścieżki do pliku gg.exe w menu Opcje?

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ę.

Jak poprawnie użyć TextToFloat w Pascalu do obliczeń w aplikacji okienkowej?

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?

Jak zaimplementować funkcję Zaokr w Delphi do zaokrąglania zmiennych?

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:...

Jak w Delphi przekonwertować hex string na binarny string?

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:...

[DELPHI] Jak zaimplementować wyszukiwanie zdjęć w Delphi z folderu programu?

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ę...

BCB - Jak masowo uzupełnić pola Edit w pętli for?

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...

TMemo – jak wstawić tekst w aktualnej pozycji kursora w Delphi?

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).

[bcb] Jak zapisać dane z TEdit do pliku txt z separatorami w C++ Builder?

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...

[Delphi 7] Delphi 7 Personal - Nie mogę skompilować programu, co robię źle?

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,...

C++ Builder: Sortowanie i wyszukiwanie w DBGrid z TTable i Paradox

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...

Komendy delphi do sterownia silnika krokowego przez lpt

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...

Jak zapisać i odczytać plik z nazwą i danymi z pól Edit w Delphi?

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;...

Jak przejąć kontrolę nad programem "cmd.exe"?

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...

[Delphi] Jak stworzyć program do katalogu usterek samochodowych?

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:...

[Delphi] Jak ukryć program po kliknięciu TButton, by działał w tle?

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...

Delphi 6 – dlaczego warunek if w procedurze Button1Click nie działa poprawnie?

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;...

[Delphi RAD] - Wysyłanie i odbieranie sms'ów pod Android

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,...

[Delphi] FloatToStrF - jak zwiększyć dokładność powyżej 18 cyfr?

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....

[DELPHI] Wysyłanie emaili - niepoprawne działanie

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...

[Delphi] onKeyDown - nie działa dla wszystkich obiektów

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...

C++ - Walidacja pola Edit: tylko liczby, błąd przy literach, ogólne rozwiązanie

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.

[delphi] kolejność kontrolek - TabOrder nie działa ?

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...

[Delphi] DBEdit i MSSQL - problem z edycją pól po kliknięciu myszką

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...

Delphi: Jak zapisać i wczytać dane z DBGrid do pliku tekstowego?

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...

[Delphi]Jak automatycznie przewijać komponent memo.

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,...

Jak wyświetlić wiadomości i kontakty w Delphi7 dla bota GG?

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);...

Delphi - jak zapisać wartości pól wyboru do pliku?

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...

Delphi 7 - biblioteki do rysowania wykresów, dostępne opcje?

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...

Integracja kodu JavaScript do aplikacji Delphi - streaming wideo

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...

[Delphi] Problemy z komponentem THGG w Delphi: wiadomości i błędy przy disconnect

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...

Lazarus - jak poprawnie wyszukiwać słowa z polskimi znakami w plikach?

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ś...

[Pascal->Delphi] Permutacje w Pascalu chcę przełożyć na Delphi

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...

Jak stworzyć komunikator internetowy z obsługą dźwięku i obrazu?

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)...

[Delphi] - Podliczanie danych ze StringGrida do Edita

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...

Delphi: Jak wysyłać dane przez UDP z użyciem komponentu Indy?

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;...

[Delphi] Jak wyświetlić kolor HEX w edit1 po wyborze w ColorDialog?

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...

Jak dodać ComboBox do StringGrid w Delphi 6? Szukam wskazówek i słów kluczowych

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;...

Delphi: Jak przypisać TMainMenu do obliczania pól różnych figur?

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...

[Delphi]+PLC,komponent działa tylko w obrębie jednej formy

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...

Delphi - Odbiór danych z ComPort i rysowanie na TImage za pomocą Canvas

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;...

[Delphi] Jak dodać numer i nazwę do Memo1 z Edit1?

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);...

Wysyłanie z serwera do klienta w TIdTCPServer w Delphi

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;...

Lazarus/Delphi - Prosty terminal wykrywanie nowej linii

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ą...

Serwer TCP - Wielu klientów, FPR Lazarus + Sockety

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...

[Delphi] Jak wypełnić TStringGrid zerami bez błędów kompilacji?

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:...

RAD Studio Delphi XE6 - Jak dodać brakujące SDK Androida?

.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ę...

Delphi 7 - aktualizacja danych co 10 sekund, użycie PC Speaker, pobieranie czasu

:: 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...

Delphi - zawieszanie się programu przy sortowaniu liczb po kliknięciu buttonu

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;...

Delphi/Pascal - Program z Memo Nie działa jak powinien

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...

[Delphi] Jak poprawnie zamienić wiele liczb HEX na DEC w Memo?

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...

Jak rozwiązać błąd logowania w Delphi 10.3 z Firebird 2.5?

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,...

Jak napisać program w Delphi lub C do odczytu danych z RS 232?

:) 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;...

Jak skonfigurować sockety w Delphi do działania poza siecią LAN?

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,...

Delphi - Wyszukiwanie w pliku i wyświetlanie wartości

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:...

[Delphi] Delphi – menu w trayu z dynamiczną listą plików i katalogów po najechaniu

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,...

[Delphi] Problem z odczytem pliku tekstowego - jak to naprawić?

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;...

Delphi 7 – jak obsłużyć przerwania RS-232 zamiast Timera przy odbiorze danych?

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;...

Błąd przy obsłudze portów COM w Delphi z użyciem CPort - jak naprawić?

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...

[Delphi] Nie działają komendy zamknięcia systemu i ukrywania ikon w programie klient-serwer

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...

[Delphi] jak zabronić wprowadzania liczb ujemnych?

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...

[Delphi 7] Problem z odczytem danych z miernika na RS232

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...

[Delphi 7][Gadu-Gadu] Odbieranie wiadomości przez Delphi 7.

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...

Delphi: Zabezpieczenie danych i obsługa ScrollBar dla równań kwadratowych

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:...

Jak zrealizować asynchroniczną transmisję RS232 w Delphi 7 z cport 3.10?

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+}...

Jak stworzyć program do rysowania w Delphi z użyciem TPaintBox?

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;...

[Delphi 7] Jak naprawić błąd kompilacji przy użyciu komponentu Comport?

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,...

Obsługa RS miernika Motech MT 4090 w Delphi - dziwne zachowanie w trybie Remote

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

[Delphi] Firebird + IBEvent. Nie otrzymuję Event-ów.

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.

[Lazarus] Jak dodać brakujący komponent TNotebook w wersji 0.9.30?

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...

Błędy w kodzie kalkulatora Delphi - jak je naprawić?

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:...

Błąd Scan line index out of range w programie Delphi z ASM XOR

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...

Delphi: Jak zapisać i odczytać dane z StringGrid w dzienniku lekcyjnym?

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...