delphi label

[Delphi] Jak wyświetlać kolejne pozycje z ListBox na Label w Delphi?

Wyświetlanie wszystkich wartości trzeba wymusić. W czasie dzialana pętli info o zmianie napisu trafia do kolejki komunikatów, ale program nie obsługuje jej, bo czaka na koniec pętli. Dlatego po zmianie napisu "labela" powinieneś wywolać Application.ProcessMessage (czy coś takiego - sprawdź w pomocy pod podobnie brzmiącym chasłem). Procedura ta zmusi...

Delphi 7 - Jak dynamicznie tworzyć label po kliknięciu przycisku?

Tak jak Ci kolega pisał - Parent, Caption, Left, Top i Visible unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public {...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Delphi: Błąd przy wyświetlaniu wyniku w Label z użyciem zmiennych i pi

if Edit1.Text = '' then ShowMessage('nie podałeś parametru') ;

[Delphi] Formatowanie Label: zaokrąglenie liczby do 2 miejsc po przecinku

Witam Mam zadeklarowaną zmienną hz jako real. Po obliczeniach wyświetlam ją w następujący sposób Label11.Caption := FloatToStr(hz); Wynik prezentuje się w następującej postaci np. 34.283743457 Chciałbym tak sformatować wyświetlany wynik aby liczba wyglądała tak 34.28 czyli albo obciąć albo zaokrąglić go do 2 miejsc po przecinku. Czy można to jakoś zrobić...

Delphi - jak wyświetlić ścieżkę pliku graficznego w Label?

Jestem zielona, jak w delphi wyswietlic w Label ścieżkę dostępu pliku graficznego który pobieram z kompa? Proszę o szybką pomoc. Pozdrawiam

Delphi - wczytywanie i zapisywanie danych z pliku txt do SpinEdit i Edit/Label

Ponadto plik wypada zamknąć, gdy nie jest już potrzebny (CloseFile).

[DELPHI] Jak uzyskać zaawansowany cień tekstu w Delphi?

Sprawdź darmowy zestaw komponentów RX (http://rx-lib-for-delphi-7.software.inf... tam zdaje się był bardziej rozbudowany Label i chyba dało się takie efekty ustawić, był też CoolForm dodający efekty do formy. Ale używałem tego dawno temu i mogę się mylić.

Delphi - Jak wyświetlić wyniki obliczeń w labelach na TForm?

Tak tylko, że jestem poczatkujący, mozna powiedziec ze mam z Delphi do czynienia tyle co nic, mógłbyś mi zrobić przykładowo napisać jeden kod na label z dodawaniem i zeby sie wyświetlał a ja nastepne zrobie według twojego przykładu :)

Odczytanie textu label'a z innej aplikacji [Delphi]

Spróbuj tym programikiem, uruchom, kliknij na "Hook" a potem najedź myszką na okienko/label.

Jak wczytac z pliku txt 2 wiersz i koleje do labla w delphi

Jak wczytac z pliku txt 2 wiersz i koleje do labla w delphi

Jak bezpiecznie zapisać login i hasło w VBA po zamknięciu dokumentu?

ma to być proste rozwiązanie (odpada dodatkowy plik txt czy ini) - rzeczywiście w tym momencie jest to dokument Worda. Login i Hasło będzie do zewnętrznej witryny www - chodzi tylko o to żeby nie raziło w oczy w samym dokumencie na monitorze - w kodzie po edycji nie ma problemu. czyli jednak label z białymi literkami ? (brakuje mi wzorem Delphi label.visible...

[delphi] Sortowanie labeli , listbox'a lub stringgrid'a

Nigdy tego nie robiłem , nawet nie wiem jak to sie robi , chce tylko posegregować edity według punktów które są w labelach

Delphi 7 - Jak przełączać widoczność napisu na etykiecie przyciskiem?

W onclick: [syntax=delphi]if label.caption='' then label.caption:='napis' else label.caption:='' ;[/syntax]

[delphi] [Delphi] Jak wyświetlić nazwę okna programu z pliku exe w label?

już sobie poradziłem :)

Delphi - poprawne wstawianie rysunku w kodzie, co robię źle?

To wstaw label tam... nie patrzyłem na kod.

[Delphi] Delphi – sumowanie liczb z Memo i wyświetlanie wyniku w Label po kliknięciu Button

Dzieki blackrage ale do funkcji lub procedury musiałem poprawić troszkę kod bo jakoś nie chciał działać. zrobiłem form1.memo :) i działa :).pozdrawiam.

Delphi 7 - Dynamiczne tworzenie ScrollBarów i Labeli z obsługą zdarzeń

No no ogólnie wiem o czym myślisz ale jak zrobić to w praktyce to nie wiem. Dotychczas programowałem statycznie. To zadanie tez się da statycznie ale chciałem spróbować tak. Bo jeszcze myslalem ale nie wiem czy się tak da stworzyć taki własny komponent z z 2 podstawowych suwak + label i potem tylko go wstawiać jako całość.

[delphi] czemu kompilator zmienia indeksy komponentów

może się źle wyraziłem to nie jest 1000 labeli ... kilkaset komponentów mam ale to nie tylko labele... wszystkie komponenty z własnością label chcę "obrabiać". Możesz napisać jakbyć to zrobił Ty ?

[delphi] Jak sprawdzić modyfikację zmiennej string w Delphi?

Witam W programie do zmiennych przypisuje zawartość z label. s:string; s:=label1.caption; Załózmy, że na początku zawartość label to - poznan12 po kliknięciu w button label zmienia się na - poznan34 Czy można sprawdzić czy string uległ modyfikacji ??

[Delphi] Pętla for nie aktualizuje Label5 na bieżąco, jak to naprawić?

W pętli musisz wstawić: Application.ProcessMessages; żeby pozwolić aplikacji obsłużyć komunikaty Jeżeli chodzi o litery to użyj "randomize". Litery przemapuj (A=1, B=2, ...). Czyli jeśli wylosuje się 2 to będzie B. Pozdrawiam.

ATMEGA32 i DELPHI7 - Pomiar temperatury w DELPHI - 2 czujniki DS18B20.

Chodzi o to że czasami odczytujesz nie cały wiersz lecz jego fragment. [syntax=delphi]var P:Integer; begin ComPort.ReadStr(Str, Count); Memo.Text:= Memo.Text+Str; P:=Pos(#13,Str); if P>0 then begin Str:=Memo.Lines[Memo.Lines.Count-2+Ord(P... T1:= Copy(Str,1,4); T2:= Copy(Str,6,4); Label3.Caption:= 'Temperatura IGBT [T1] = '+T1; Label2.Caption:=...

Jak wyczyścić wiele labeli w Delphi za pomocą pętli?

Hejka! Chcialbym za jednym zamachem wyczyscic 20 labeli. Czy istnieje prostszy sposob niz pisanie Label20.Caption:=''; itd? Probowalem zrobic tak for i:=1 to 20 do label[i].caption:=''; jednak wywala blad? Bede wdzieczny za pomoc;p

[Delphi] Zmiana koloru PageControl/TabSheet oraz CheckBox

Używam Turbo Delphi, więc instalacja zewnętrznych komponentów odpada. Pewnie spróbuję z Labelami ale to jest raczej takie "nieeleganckie" rozwiązanie. Teoretycznie da się ustawić kolor CheckBoxa, ale po umieszczeniu na zakładce jest i tak biały, niezależnie jaki kolor mu ustawię :|

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

Nigdy nie korzystałem z siatki grid, ale za to fajnie można podobny efekt osiągnąć tworząc siatkę prostych elementów typu Label, Edit. Przesyłam więc kod źródłowy programu, który generuje na formatce w zdarzeniu OnCreate formy tabelę złożoną z 10 wierszy, a w każdym z nich z dwa pola tekstowe i jedno combo. Jednak nie oznacza to, że w pamięci można...

Jak stworzyć skaczącą etykietę w Delphi z użyciem timera?

no dobrze skoro to nie jest takie latwe to chciaz jak zrobic aby caly ten napis caly label zmienial kolor i rozmiar czcionki za kazdym przeskokiem na inne miejsce??

Jak odczytać pomiar z Metex w Delphi i wyświetlić w labelu?

Witam Interesuje mnie komunikacja metex'a w środowisku Delphi. Czy ktos jest w stanie udzielić jakiś wskazówek, wiem że trzeba wysłać na miernik znak "D", ale ja mam z tym problem. Chcialbym aby na formie delphi w label'u był wyświetlany wynik pomiaru (np. napiecie). Czy potrzebne są jakies komponenty do obslugi com? Czy jest jakies krótsze rozwiązanie....

Delphi - Jak stworzyć formę przezroczystą i przenikalną jak hologram?

Zapomniałem dodać - że w przypadku transparentcolor nie powinno się korzystać z kolorów szarych białych i czarnych bo coś tam - nie pamiętam co to powodowało, bo czytałem o tym bardzo dawno ale coś tam przeszkadzało. Jeżeli chodzi o TLabel to wspomniany przez Ciebie problem u mnie nie występuje, np. w takiej konfiguracji transparentcolor clgreen, label...

Delphi - Alternatywy dla timera do monitorowania zmian w pliku tekstowym

By to się po prostu działo co parę sec Zamiast co chwila sprawdzać czy dany plik się zmienił - powierz to zadanie systemowi operacyjnemu. Nie robiłem nigdy tego w Delphi, za to FileSystemWatcher - pod C# - jak najbardziej (działa). System Windows działa w oparciu o komunikaty. To, że zapisujesz/odczytujesz coś w komputerze ma swój "ślad" w systemie....

Delphi - Wpisywanie greckich liter i polskich znaków w Labelu

Witam, Kiedyś bawiąc się w programik do rozkodowywania kodów na rezystorach miałem podobny problem (wyświetlanie "omega"). Zrobiłem tak: Na etykiecie gdzie miał być ohm zdefiniowałem font symbol na pozostałych standardowa czcionka. Etykiety ustawione na autosize i programowo układane jedna za drugą. Wszystko na ten temat. Ułatwieniem było to, że znak...

Automatyczne przejście z edit1 do edit2 w Delphi i tryb poleceń w WinXP

Wielkie dzięki Sam Sung I jeszcze jedno takie drobniutkie pytanko: Jak sprawdzić ile znaków ma np. jakaś zmienna String, pole Label. Wiem, że da się coś takiego zrobić z Edit (Edit1.Sellenght czy coś takiego).

[Delphi] W jaki sposób obsłużyć StatusBar i Tray?

Witam, mam do Was pytanie, moglibyście mi powiedzieć jak się obsługuje Status bar, chciałbym żeby pokazywany był w nim Label (jest to scieżka do pliku), data i godzina, moglibyście mi również powiedzieć co zrobić żeby program chował się do Tray'a ???, pozdrawiam vcd_a

[Delphi] Ustawienie tapety jako tła formularza w programie

Spoko już zrobiłem (at)faber dzięki, ale mam jeszcze jedno pytanko, bo jak na całej formatce ustawie tapetki, to potem gdy dodaję obiekt: Label to jest takie chamskie szare tło, dało by się je jakoś usunąc?, np żeby w tle napisu była tapetka ???, pozdrawiam vcd_a :)

Delphi 7 - Jak przerwać pętlę while przyciskiem stop?

Dziękuję za odpowiedzi, skorzystałem z wątków i program działa tak jak chciałem, lecz mam jeszcze jeden problem. Oto fragment mojego kodu: [syntax=delphi] s1:=(a/j)*100; s2:=(b/j)*100; s3:=(c/j)*100; s4:=(d/j)*100; Form1.Label1.Caption:=FormatFloat('00.00... Form1.Label2.Caption:=FormatFloat('00.00... Form1.Label3.Caption:=FormatFloat('00.00...

Integracja kodu ASM dla 8051 z Delphi - czy to możliwe?

Jeszcze chcialem sie zapytac , czy jest jakis podobny edytor ASM do bascom, chodzi mi o funkjce jak lista LAbeli i po najechaniu mozna od razu przejsc do tego miejsca... Szumkam tez zrodlowki compilatora asm, bo chcialbym napisac wlasny w delphi ale moze ktos mi poradzi co i jak... bo chodzi o to aby dostosowac np. w normalych compilatorach jest : -...

[DELPHI] pozycja piksla Timage odczytywana za pomoca myszki

Po co pobierasz X i Y myszy z Mouse jak masz jak na tacy podane X i Y poprzez argumenty zdarzenia MouseMove ? Zobacz: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X , Y : Integer); Wystarczy teraz wykonać: procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Caption:=IntToStr(X);...

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi i wyświetlić liczby na ekranie?

Witam Jak przenieśc ten program z Pascala aby działał w Delphi. Procedure xxx var x : integer; begin x:=1; repeat x:=x + 1; Write(x); delay(200); until x>100 end; (chodzi oto aby na ekranie były wyswietlane liczby od 1 do 100, np. na label lub w innym oknie); Czesc Zamykam. - arnoldziq

[c++ builder] Jak usunąć dynamiczne obiekty TLabel przed ponownym tworzeniem?

utak3r , a jak ten ostatni kod zapisać w c++? chodzi mi o "is". Wydaje mi się, że tego się nie dowiesz od niego. Zauważyłem, że w tematach związanych z c++ utak3r podaje kod w delphi... no cóż. Odpowiadając na pytanie dam taki oto przykład: for (int i = Form1->ComponentCount - 1; i >= 0 ; i--) // ważne żeby liczyć od końca jeśli usuwamy...

DELPHI: Błąd przy przejściu z Form4 do Form5, problem z Label3 i ukrywaniem formy

Ale chcialbym dodac opcje Form4.hide. Jednak pojawia sie bląd. Gdy odpalam program niby okienko Form4 ladnie znika, ale gdy zamykam wszystko pojawia się jakies Okienko CPU z podzialem na 4 czesci, mnostwo liczb, to zdecydowanie jakis blad bo nawet nie powraca do wyjsciowego wygladu (object inspectra itp). U mnie pojawia sie strzalka przy: ntdll.KiFastSystemCallRet:...

Program w Delphi: Rozkład prądów w obwodzie metodą Thevenina

No to musisz umieścić pola edycyjne przy każdym elemencie. Na początku programu nadajesz im jakieś domyślne wartości początkowe. Pole ma pewnie jakisś pole typu Value, z którego czytasz wartość. Jeżeli pole zmieni wartość (komunikat o zmianie powinien być generowany dla każdego pola) to wywołujesz procedurę obliczającą zmienne niewiadome a te wpisujesz...

Jak napisać program w Delphi bazując na źródle z Tpascala?

Algorytm to już jest, tylko interfejs użytkownika zamienić z DOS konsola na Windows GUI. Do tego wystarczy na delphi formularzu, przez kliknięcie myszką wprowadzić dwa elementy edycyjne z palety komponentów GUI, oraz dla wyniku funkcji etykiety Label. wtedy Edit1.Text:= IntToStr(n); // readln(n) oraz n:= StrRoInt(Edit1.Text); wtedy Edit2.Text:= IntToStr(k);...

[Delphi] Jak zapisać odpowiedzi do pliku i dodać pasek przewijania?

Ja bym to zrobił zupełnie inaczej. Po pierwsze nie widzę sensu aby ilość "RadioButtonów" była uzależniona od liczby pytań... Chcąc dodać/Zmienić pytanie musisz Dodawać/edytować Kolejne RadioButtony... A gdyby tak było ich tylko 4 i Jeden Label? Powiedzmy, że po uruchomieniu aplikacja wczytywałaby z pliku textowego pierwsze pytanie i 4 odpowiedzi. Odpowiadasz...

Jak zapamiętać wynik i dodawać kolejne wartości w Delphi?

Zrób ogólną deklarację zmiennej INTEGER dla całego programu i potem sobie normalnie wykonuj działania na niej i ją wyświetlaj (IntToStr). Nie widzę sensu pisania wyniku na labelach i potem konwertowania go w liczbę- to daje tylko niepotrzebne wyjątki :!: Proponuję oduczyć się tego; "czym skorupka za młodu..." :lol: pozdrowienia;życzę sukcesów w programowaniu

Jak liczyć sekundy i minuty od zera w Delphi7 za pomocą Timera?

[syntax=delphi]Label1.Tag:=0; Label1.Caption:='00:00:00'; Timer.Interval:=1000; // można w inspektorze Timer.enabled:=true;[/syntax] OnTimer: [syntax=delphi]Label1.Tag:=Label1.Tag+1; Label1.Caption:=FormatTime('hh:nn:ss',La...

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

Witam. Szukam prostego rozwiązania na komunikację Delphi Arduino, szukają po necie sprawa nie jest tak prosta tym bardziej iż nie jestem programistą. Ale znalazłem rozwiązanie tak przynajmniej myślę :) Może na początek Arduino -> USB ->Delphi 7(ComPort) [syntax=vbnet]void setup(){ Serial.begin(9600); } void loop(){ delay(5000); Serial.println("R130");...

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

witam jestem początkujący w programowaniu i mam problemy, do wykonania miałem program liczący równania kwadratowe po długich i zawziętych męczarniach zostały mi tylko 2punkty do wykonania nigdzie nie mogę znaleźć na to odpowiedzi może dlatego że to tak proste 1. Zabezpiecz program przed wprowadzaniem danych nie będących liczbami. Wskazówka: zamiast...

Odczytywanie textu z komponentów drugiej aplikacji [Delphi]

SamSung: Jestes pewien że każdemu labelowi nie odpowiada żaden uchwyt? Masz na to jakiś dowód? Z tego co widze bawiąc się aplikacją spy++ labele posiadają własne uchwyty, które bez problemu można pobrać.

Delphi - Jak płynnie wyliczać prędkość koła roweru bez zacinania?

Witam. Robię sobie programik w delphi, którego za zadanie będzie wyliczanie prędkości np: roweru. Czujnik przyczepiony do koła wysyła informację do programu napisanego w delphi ile obrotów zrobiło koło. Wytłumaczę w czym jest problem na przykładowym programie, który znajduję się w załączniku. Kliknięcia w button(klik) to są impulsy przesyłane z koła,...

ATMEGA32 i DELPHI 7 - Błąd EConvertError przy konwersji String na Float

Ok. Dokonałem konwersji na zmienną typu float - program działa. Tylko teraz nie wiem jak sprawdzić czy konwersja się powiodła. Jak mogę ją wyświetlić ? np. jako = label.caption... ?

Jak przekazać i modyfikować zmienną `s` między Form4 a Form5 w Delphi?

W zasadzie powinno używać się zmiennych globalnych ale możesz zrobić w następujący sposó. Do form5 dodajesz jakiś label np label21 i we właściwościach ustawiasz jego niewidoczność i teraz w Form 4 końcówkę zmieniasz: else if RadioGroup1.ItemIndex=2 then s:=s+30 else if RadioGroup1.ItemIndex=3 then s:=s+40; Form5.Label21.Caption:=IntToStr(...

Komponenty do Delphi 7 przypominające interfejs MS Office 2007

Też ostatnio szukałem skin'ów do Delphi 7 Pro ale jedyne co znalazłem to wersje Lite lub Demo. Poszukaj: VclSkin - pełny pakiet z tym, że w górnej belce okna zamiast naszego caption'a widnieje napis "VclSkin Demo" i nie można (tzn ja nie mogłem) tego zmienić. AlphaControls Lite - kilka kontrolek freeware (Panel, Button, Edit, CheckBox, ComboBox, Gauge,...

wurth wow aktualizacja samych baz

Koledzy z WOW mają też inną głowicę WabcoWurth BOX 2.0 i ona robi też ciężarówki , naczepy , autobusy i osobowe , jest droga na starcie ale ma w sobie oryginalne oprogramowanie WABCO i Haldex teraz podobno będzie jeszcze z nimi ZF i to jedyna taka głowica na rynku ... i też kosztuję :) Dodano po 7 Po za tym WOW to Autocom jeden do jednego tylko wzbogacony...

[Delphi] [Delphi][HTTP] Jak skonstruować nagłówek POST do uploadu pliku?

Witam Otoz pisze sobie programik w delphi,ktory komunikuje sie ze strona internetowa. Od strony programowej (delphi) komunikacje mam dzialajaca (ciasteczka,logowanie i download plikow). Problem pojawia sie jak chce zrobic upload pliku - plik jest wysylany metoda post ale poprzez formularz i tu moje pytania jak skonstruowany jest taki naglowek.Moze podam...

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

Jak przekierować kod z RS232 do innego programu w VB6, Delphi, VS2008?

Tak przeczytałem i nic. Mam pytanie jak mogę to zrobić w Visual Studio lub w VB nie wiem jak i od czego zacząć, może jakiś przykładowy kod a dalej już zobaczę. Jeżeli chodzi o WM_CHAR to też zbyt wiele nie znalazłem pod VB Może jeszcze raz opiszę problem. Potrzebuję fragment kodu napisanego w VS lub VB, który będzie realizował następującą funkcję: w...

Rad Studio 10 aplikację na Androida 11 nie działają .

Witam . Po aktualizacji telefonu do Androida11 przestała działać mi moja aplikacja . (była robiona pod androida 6 ) . Do A10 działała . tzn dostawałem info o tym ze jest to aplikacja pod starszą wersje androida , ale działała. Teraz na A11 nie działa . Przesiadłem sie na Rad Studio 10 i chciałem napisać ją od nowa . Na próbę zrobiłem prostą aplikację...

Zadanko w Delphi. Zwracanie łańcucha znaków wspak.

procedure TForm1.Button1Click(Sender: TObject); var ciag: string; I: integer; begin ciag := Edit1.Text; //Pobranie tekstu z pola edycyjnego Label1.caption := ''; //Czyszczenie labela For I := length(ciag) downto 1 do //Od długości tekstu w dół do 1 znaku Label1.Caption := Label1.Caption + ciag[I];...

[delphi] [Delphi] Jak dodać zmienny czas do wykresu temperatury z COM?

Nie, to błedne rozwiązanie, co przedstawiłeś. Przesyłane dane trafiają do bufora najpierw portu COM, a potem systemowego. Wówczas funkcja ReadStr może odczytać dane z tego bufora. W przeciwnym razie będzie czekać. Po prostu w jednym wątku zrób "nieskończoną" pętlę czytającą, która po odczycie wstawi zarówno czas jak i wartość np do listy dynamicznej....

[VB] Jak stworzyć grę wzorowaną na Familiadzie w Visual Basic na Win XP?

Do moderatora: Link do dodawania obrazkow nie dziala. http://img190.imageshack.us/img190/8615/... Gdyby hotlink nie dzialal: [url=http://img190.imageshack.us/img190/... Mam 3 labela w sumie: numer, tresc, punktacja. Problem jest taki, ze w "tresci programu" napisy na guzikach sa zdefiniowane jako czarne a wyswietlaja sie...

[delphi] Jak napisać warunek w Delphi do obsługi przycisku BitBtn1 i Timer1?

1. Zmienne lokalne (definiowane w funkcjach) o tych samych nazwach, co zmienne globalne przykrywają te drugie. Nie definiuj zmiennej w funkcji, jeśli chcesz korzystać ze zmiennej globalnej. 2. A z portu COM dostajesz liczbę jako wartość czy jako string? Co wyświetla Memo1? ok. zaraz sprawdzę co do zmiennych :-) fakt Przez CPU wysyłam string , w ascii...

Delphi - Błąd HTTP 500 przy logowaniu i pobieraniu pliku metodą POST

Witam, próbuję się zalogować na swoje konto na pewnej stronie a następnie pobrać plik metodą POST. Chodzę trochę po omacku, ponieważ logowanie zwraca mi błąd HTTP/1.0 500 Internal Server Error , a pobieranie pliku zwraca mi true - a gdzie plik? Poniżej przesyłam to co napisałem a pod tym fragmenty html tej strony. Prosiłbym o podpowiedź. Mój kod - Logowanie...

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

Delphi 6 zapis i odczyt danych z pliku – przykład zapisu dwóch zmiennych

kolego no ale gdzie dodałeś? ;) .... ..... form4.Edit8.text := sList.Strings zobacz najpierw próbujesz odczytać coś ze stringlisty i to normalne że wywali się błąd index out of bound bo nie ma do niej nic wczytane najpierw wczytaj zawartość pliku do stringlisty sList.LoadFromFile(NazwaPliku); {dodałem} a potem odczytuj z niej poszczególne stringi form3.label1.caption...

[Delphi] Jak odczytać wartość SQL do Labela lub Edita?

Witam, pozwolę sobie odświeżyć ten temat. arnoldziq gdybyś mógł mi poradzić jak odczytać wartość zapytania do labela lub edita? Gdy wpisuje coś takiego, dostaję w wyniku 0. IBQuery1.SQL.Clear; Label1.Caption:=IBQuery1.SQL.add(... first 1 skip 3 kolumna_1 from tabela'); IBQuery1.Open; Metodą prób i błędów zwróciłem tekst zapytania, ale...

C++ Builder - błędy kompilacji przy użyciu AnsiString w klasie

Borlanda juz dawno nie ma w procesie tworzenie produktow RAD Studio, do ktorych zaliczaja sie miedzy innymi srodowiska C++ Builder i Delphi. Po to sie kupuje (za niemale pieniadze), lub sciaga wersje bezplatne, by korzystac z tego co te produkty oferuja, a rekomendowane typy tekstowe - AnsiString/UnicodeString umozliwiaja sprawna komunikacje pomiedzy...

Jak wyciągnąć wiele liczb ze stringa w Delphi przy użyciu TComport?

Nie do końca rozumiem. Jeśli nie wpisuję kolejnych Label, to w Memo widzę natępujące informacje odierane z AVR: 234|345|4567|5678| więc jakby elementy były no chyba, że to nie to? Myślę, że problem jest w czyś innym - tzn. w odczytywaniu tego stringa z Memo. Jeśli to samo zrobię ze stringa zapisanego z ręki w formie: v:= '234|345|4567|5678|' to...

Jak przekazać strukturę AGSISYMDSC z pliku .h C++ do Delphi?

Mam w pliku .h c++ zadeklarowaną strukturę AGSISYMDSC, któą należy przekazać do Delphi. Nie może być przepisana do pliku .pas Delphi ponieważ jedno z pól struktury ma nazwę (type) a słowo to jest w Delphi określeniem definiowania typów (zastrzeżone). Struktura nie może być inna bo jest przekazywana do innego programu. Można próbować podpiąć plik jako...

[DELPHI] Lazarus na Windows XP - Błąd kompilacji windres.exe, jak naprawić?

Ścieżki:: $(ProjOutDir)\ reszta pusta Analiza:: Tryb.. :Object Pascal - deflaut.. zaznaczone opcje skladni: operatory w stylu jezyka C.., Pozwalaj na instrukcje LABEL, GOTO (-si), INLINE w stylu C++, Assembler style: domyslne Kod:: OPtymalizacje - Poziom 1; reszta odznaczona, Łączenie:: zaznaczone tylko Wyświetl numery lini.., Aplikacja graficzna win32.....

Przechwytywanie komunikatów z innych aplikacji w DELPHI

Witam Mam taki problem nie potrafię się dobrać do komunikatów wysyłanych przez program EasyCall.exe chodzi mi o przechwycenie dzwoniącego numeru telefonu z głównej formy , lub z chmurki która wyskakuje przy połączeniu przychodzącym jak wyskakuje chmurka to ściągnąłem coś takiego : Chmurka Parent window title: Window handle: 0x0001007C Window class:...

Delphi - czy TTimer da się przyspieszyć poniżej 1ms?

Algorytm (pojedynczy) wykonuje się szybciej niż 1 ms - skoro w 1 ms wykonuje się zwykle około 2-3 obrotów - zgodnie z pomiarem. Tak naprawdę to nie interesuje mnie w ogóle nic związanego z czasem - nie ma on wpływu dla mnie na działanie programu, po prostu wykorzystałem Timer, bo nie wpadłem na żadną inną metodę. Co do wielowątkowości - chętnie o tym...

[Delphi] Jak poprawnie wywołać rekord z tablicy w DLL w Delphi?

Np. w taki sposób : var tb1[1..100] of string; [...] begin randomize; Label1.Caption:=tb1[random(9... end; W takim przypadku nie ma znaczenie czy zainicjujesz wartości w tej tablicy. Jeżeli nie, to po prostu nic się nie wyświetli.

Komendy delphi do sterownia silnika krokowego przez lpt

[syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var SleepTime :dword ; var Steps :dword ; var s :dword ; begin if ZLIOStarted then Label1.Caption := 'Sterownik załadowany poprawnie.' else Label1.Caption := 'Nie można załadować sterownika.'; SleepTime:=StrToIntDef(Edit1.Text,1000); Steps:=StrToIntDef(Edit2.Text,1); for s:=0 to Steps do...

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

Czy gdzieś da sie ustawić żeby xe kompilował do androida zgodnego z wersją 2.3 Da się. Chociaż to wymaga mnóstwa zachodu ze ściąganiem odpowiedniego SDK, instalacją itd. Odradzam. na telefonie aplikacja nie działała tak jak trzeba tzn button po którego kliknięciu miała sie wyświetlić w label pewna wartość , a tu nic . Przycisk sie naciskał ale aplikacja...

Przesyłanie danych przez HTTP POST by wysłać maila za pomocą PHP (Delphi)

Czołem! Muszę napisać program który będzie wysyłał do mnie wiadomość. Postanowiłem że przez ten program wyślę dane za pomocą metody POST na serwer, po czym wyślę maila korzystając z PHP. [syntax=php]<? mail("test(at)test.pl", "Wiadomość", $message, "From: $from"); ?>[/syntax] oraz Delphi: [syntax=delphi]procedure TForm11.Button1Click(Sender: TObject);...

Jak zmienić parametry komponentów w procedurze w Delphi 7 Enterprise?

Witam Pewnie kompilator pluje się że nie zostały one zadeklarowane. Aby temu zaradzić linia kodu zamiast np. label1.caption:='Coś'; powinna wyglądać tak: form1.label1.caption:='Coś'; Powinno to pomóc. PS. form1 to nazwa formatki na której umieszczony jest dany komponent. W procedurach/funkcjach których nagłówki są zadeklarowane w klasie formatki, zmienne/komponenty...

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

[syntax=delphi] if Label1.Caption='/' then if a<>0 then wynik:=(b/a); else showmessage ('pamiętaj cholero, nie dzili się przez 0 ;)'); [/syntax]

[delphi] Jak sprawdzić wersję językową windows ?

Kiedyś sprawdzało się tak : [syntax=delphi] uses Windows, SysUtils; [...] var ID: LangID; Language: array [0..100] of char; begin ID := GetSystemDefaultLangID; VerLanguageName(ID, Language, 100); Label1.Caption := String(Language); end;[/syntax] Sprawdź, czy to jeszcze działa.

[DELPHI] - Wygenerowanie 16bitowej liczby w pamięci

Twoja liczba musi być 64 bitowa. Taka liczba nie może być użyta w "for", ale w "while" oczywiście może być, np.: procedure TForm1.Button1Click(Sender: TObject); var i: Int64; begin i:= 1; while i< 9999999999999999 do begin Label1.Caption:= FormatFloat(',#0', i); if i mod 100= 0 then Application.ProcessMessages; i:=...

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

Nie używałem tego od lat, ale na pierwszy rzut oka dla mnie ten fragment jest bez sensu: if edit1.Visible= false then edit1.Visible:= true; edit2.Visible:= true; label2.Visible:= true; label3.Visible:= true; label1.Caption :='0' begin else if edit1.Visible:= true else a:=label2.Caption + label3.Caption end; end. Nie wiem dokładnie, o co tu chodzi, ale...

[delphi] [Delphi] Czcionka Label1 zmienia rozmiar i błąd canvas does not allow drawing

Czy to jest jedyny kod (pisany samemu) w programie?

Delphi 5: Błąd przy użyciu funkcji InputBox w procedurze Button1Click

bo to wszystko jest źle ;] sprawdź tak: [syntax=delphi] procedure TForm1.Button1Click(Sender: TObject); var dane:string; begin dane := inputbox('okno wprowadzania danych','Podaj imie',''); if Length(dane) <> 0 then Label1.Caption:='Witaj '+dane; end; [/syntax] chyba o coś takiego chodziło ? podstawowy błąd to to, że w if niema żadnego warunku,...

[DELPHI] Jak stworzyć właściwą maskę wprowadzania adresu IP

No własnie, nie ma sensu komplikować ;) procedure TForm1.MaskEdit1Exit(Sender: TObject); var wynik : string; begin Wynik:=StringReplace(' ','',(Sender as TMaskedit).text,[rfReplaceAll ... (Sender as TMaskedit).text:=wynik; //Label1.caption:=wynik; - zmienna wynik przechowuje adres IP w rozsądnym...

Jak zainstalować komponent portu COM w Delphi 7 dla AVR i RS232?

Wnioskuję właśnie po tym, że odczytujesz a procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var i: integer; begin comport1.ReadStr(a, count); for i := 1 to count do begin c := ord(a[i]); inc(licznik); daneBYTE[licznik] := c; if licznik >= 100 then begin label10.caption:=...

Java - Midlet - jak zacząć (absolutnie początkujący)?

Witam. Na początku zaznaczę, że całkowicie od samego początku bez żadnego doświadczenia z programowaniem w Java. Dowiedziałem się już żeby zainstalować sobie kompilator Java Sun zdaje się i jakoś mi się to udało (tak mi się wydaje)... tylko w ogóle nie wiem jak i co dalej żeby napisać nawet jakiś najprostszy Midlet na telefon komórkowy. Wiem, już że...

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

AVRPascal - Darmowy edytor kodu w Pascalu dla mikrokontrolerów AVR

Cześć, Gratuluję udanego i ciekawego projektu. Pewnie spędziłeś nad nim sporo czasu. Boję się, że mało osób używa języka Pascal do programowania układów AVR, skoro teraz króluje język C. Czy możesz udostępnić przykładowy kod typu blink led dla Atmega8 lub innego procesora, żeby przypomnieć sobie ten język programowania? Pozdrawiam, Rafał -:) Dziękuję...

[Delphi] Jak stworzyć program do zarządzania i uruchamiania plików z list?

Serdecznie dziękuję. Popracuję nad tym wieczorem. Puki wcześnie zadam jeszcze jedno zagadnienie. W zasadzie poradziłem sobie z nim sam ale nie działa zgodnie z moimi oczekiwaniami. MIXERLINE_COMPONENTTYPE_DST_SPEAKERS jest odpowiedzialna za suwak z głośnością główną jednak gdy podstawię to zamiast WAVE_MAPPER to nie działa pomimo, że kompilator nie...

Delphi - ShellExecute nie uruchania pliku ze zmiennej

Wybieram plik i ścieżkę dostępu poprzez FileOpenDialog. To działa, wyświetlam ją w Label, ale tego stringa nie wiem jak przekazać do ShellExecute aby uruchomić wybrany program (lub otworzyc skojarzony plik). Gdy podam w ShellExecute ścieżkę i plik jawnie to OK, lecz jak wstawię w to miejsce zmienną to nic, chociaż w zmiennej jest cała ścieżka wraz z...

Delphi 7: Błąd w instrukcji if przy tworzeniu kalkulatora

Operator IF działa ze znakiem '=' a nie ze znakiem przypisania ':='. Zmień to i będzie OK. if Label1.Caption := '1' then Edit1.Text:=FloatToStr(StrToFloat(Label2... + StrToFloat(Label3.Caption));

Delphi - Jak usuwać dane z TStrings w TMemo przy przekroczeniu limitu?

Program który tworzę na bieżąco "wypluwa" dużą ilość komunikatów o działającym algorytmie. Większość rzeczy wyświetla się w Labelach itp, ale "przełomowe" elementy algorytmu wpisuję do TMemo. Zależy mi na tym, by wygodnie można było kopiować sobie efekty działania. Dotychczas wpisywałem do TMemo tekst za pomocą: TMemo1.Lines.Add(_Napis_) Dodaję...

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

filtrowanie danych z rs232-odbiór w programie w delphi

Witam wszystkich. Mam urządzenie (AVR+bascom) które wysyła po rs'ie dane o ogólnie rzecz mówiąc stanie czujników, podzespołów. Dane odbierane w terminalu wyglądają jak poniżej: W:sterownik v5.14 - 05.12.11 U:6.12V I:42.0 H:poziomo - poza zakresem h:0 V:pionowo - poza zakresem v:0 V:pionowo - w górę v:9 U:6.15V...

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

komendy at-wysylanie smsa-pdu w delphi prozbha o pomoc

czesc jak myslicie co w tym kodzie jest nie tak bo nie moge znalesc bledu. Pisalem go na podstawie innego kodu napisanego w C. Dziwne jest to, ze po przekodowaniu pierwsze dwa znaki sie zgadzaja z tym wygenerowanym przez program z sieci. Chcialem jeszcze zapytac czy dlugosc smsa powinna byc w hexie czy w systemie dziesietnym. A moze nie ma to w ogole...

Jak umieścić i sterować grafiką na formie w Delphi?

Po przerwie powracam do tematu. Sporo komponentów znalazłem ale niektóre jednak trzeba zrobić ręcznie (za własne komponenty VCL jeszcze się nie biore ;) ), używam do tego pustego Image i ustawiam Transparent:=True w chwili rozpoczęcia rysowania np lini: Tasma_101.canvas.MoveTo(0,30); Tasma_101.Canvas.LineTo(Tasma_101.Wi... cało...

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

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

Przykład który podałem jest dobry pokazuje jak to zrobić bez zbędnego tłumaczenia i zaciemniania chyba potrafisz w kodzie zamienić plus na minus na pierwiastek albo znak dzielenia ;) http://4programmers.net/Delphi/Sk%C5%82a... http://7pl.info/funkcje-matematyczne-w-d... Co do odpowiedzi - zakładam że masz wpisane...

[Delphi7] Problem z łączeniem i długością stringów z RS232

Zrobilem cos takiego aby sprawdzic ComPort.ReadStr(Str, Count); Label11.Caption:=IntToStr(Length... Label10.Caption:=Str; I w rezultacie: Label11 wyswietla: 12 Label10 wyswietla: ,M,,M,,*78 co daje tylko 10 znakow :/ małe pytanko jaka komęda otwiera plik do aktualizacji chodzi mi o to ze otwiera plik i zapisuje w...

Jak sprawdzić wyposażenie Peugeot 508 2,0 HDI na podstawie VIN?

Przepuść przez Google translatora ;) chyba że znasz angielski ;) Main data ParameterValue VINVF38DRHF8BL099173 BrandPEUGEOT Vehicle characteristics ParameterValue Vehicle family508 AS/RP N°12793 CJ 1 0637 Warranty Start Date05/03/2012 Engine serial number10 DYZA 4002822 BERe2*2007/46*0080*04 P4A9691274299 TRIM LEVELHIGH MEDIUM PLUS PAINT TYPEMETALLIC...

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

Dlaczego dane są nadpisywane? Stworzenie bazy danych, Pascal.

Witam, mam do stworzenia "bazę danych". Na typie rekordowym. Mam mieć w niej kilka procedur: -dodającą użytkowników; -usuwającą użytkowników; -wyszukującą za pomocą nr PESEL; -sortującą po nazwisku rosnąco Oraz dwie funkcję: -sprawdza czy ludzie wprowadzeni są pełnoletni; -sprawdza czy jest podana (at) w mailu; Elementy mają być wprowadzane pojedynczo....