Z tego co pamiętam paradox nie obsługuje transakcji, możesz zgłębić ten wątek może być pomocny z caschedupdates: http://docwiki.embarcadero.com/RADStudio... Jeśli potrzebujesz tylko wrzucić dane to propozycja taka: podłączenie do bazy z MS Access lub nawet Excela przez odbc driver i kopiuj wklej dane. Jeśli jednak ma...
Czy komponent IBTransaction kontroluje działanie trigera na serwerze? Serwer kontroluje działanie trigger-ów na serwerze. Możesz tylko zastosować odpowiedni trick, żeby ja czasami omijać, gdy nie są potrzebne. Wynika stąd że najlepiej wszystko wykonywać za pomocą procedur w bazie... Wtedy masz największą kontrolę nad bazą. Potem poprostu zwróci ID...
Utworzenie typu rekordowego o stałej wielkości i następnie czytanie i zapisywanie do pliku typu tego rekordu (file of TRekord)
Nie padding a alignment chyba się to nazywa ;) Prokopcio - zapoznaj się z moim artykułem [url=http://www.dzyszla.aplus.pl/porada-... pisaniu wydajnego kodu jak również [url=http://www.dzyszla.aplus.pl/porada-... tym, co wpływa na wielkość pliku exe w Delphi.
Przepływomierz Delphi kicha, jest jeszcze gorzej więc lepiej zostać przy Boschu i szukać nieszczelności. Moim zdaniem sonda jest ok. Jest dziura gdzieś, delikatnie robi się bogata mieszanka, mocy będzie ok 140 koni bo braki w przepływie są. Co do spalania te silniki palą tak w zakresie 8-12l/100, jeśli udaje się na trasie przy spokojnie jeździe zejść...
[syntax=Delphi]... = record obrazek: TBitmap; end;[/syntax] Przy zapisie musisz ręcznie przeiterować wszystkie elementy, gdyż TBitmap jest klasą, więc zmienna jest wyłącznie wskaźnikiem na typ.
Nie można prościej. W momencie zaznaczenie wiersze a DBGrid, znacznik operacji na rekordach, jest ustawiany automatycznie na wybranym rekordzie. Wszelkie operacje, zmiany, kasowania itd dotyczą właśnie wybranego rekordu.
I to właśnie generuje ten błąd. Albo zapisz potrzebne Ci String-i do pliku tekstowego i odczytuj je z niego, albo podziel ten bardzo długi string w kodzie programu na części, nie przekraczające 255 znaków. Tak jak w tym drugim kodzie. --EDIT-- Jeżeli tak, to nie możesz takiego tekstu wprowadzić bezpośrednio do kodu programu! Albo zapiszesz te "skopiowane...
Możesz rozwinąć? nie bardzo wiem, co chcesz przesuwać... Chodzi Ci o tablicę rekordów albo listę dynamiczną rekordów?
Witam Mam drobny problem z kolorowaniem rekordów w komponencie ListView wg zadanych kryteriów, a dokładniej jeśli SubItem = 'X' to ma być czerwone, inaczej normalne. Niby rozgryzłem jak zmieniać styl lecz podczas kolorowania w procedurze CustomDrawSubItem bierze pod uwagę tylko ostatni rekord kolorując całość wg niego. https://obrazki.elektroda.pl/7793408900_...
Użyłeś ".AsString" i władowało Ci cały rekord do jednej zmiennej. Nie rozumiem na czym polega problem. Nie umiesz pobrać danych do tablicy? Poza tym, jaki jest sens pobierania wszystkiego i porównywania tego w programie, jeżeli można to zrobić za pomocą SQL-a...
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.
Nie uda się tego zrobić bez zmiany definicji rekordu wykaz, ponieważ dynamiczne wiązanie nazwy pola rekordu jest niemożliwe. Jeśli mimo wszystko muszą być dostępne pola A, B itd., to można zastosować rekord wariantowy: type wykaz = record case Integer of 0: record A, B, C, ...., Z : Double; end; 1: array['A'..'Z'] of Double; end;...
Dodano po 50 Poniższe linijki przypisują wartości do pola, ale po kolei opiszę co i jak: [syntax=delphi] nazwa.Text:=tabButow[StrToInt(naszeButy.... //przypisanie wartości do pola nazwa z tablicy, po wybranym indeksie z pola wyboru naszeButy z tablicy rekordów rozmiar.Text:=tabButow[StrToInt(naszeBut...
Mam pytanie jak usunac rekord z pliku np. ma w pliku wgranych 20 rekordow i chce usunac 18 jak to zrobic. :D:D Za odpowiedz dzieki. rekordy zapisuje i czytam mniej wiecej tak http://4programmers.net/Delphi/Artyku%C5...
Sugeruję zapoznać się z tym tematem: [url=http://www.elektroda.pl/rtvforum/to... - Wielkość struktury tablicy (array) - czy są różnice w deklaracyjne Tam jest wszystko dokładnie opisane.
Nie bardzo mogę zrezygnować z DB. Bo zasadniczo pobieram dane do dbgrida , przechodząc rekord po rekordzie w dbgridzie i w dbedit wyświetlam potrzebne dane.
Jak komponent dziedziczący po TDBGrid, raczej zachował te same mechanizmy współpracy z bazami danych. Więc raczej nie uda ci się automatycznie zmieniać zawartości rekordów bazy SQL. Problem polega na tym, że tak na prawdę, nie jesteś w stanie umiejscowić rekordu pokazanego przez TDBGrid (lub podobne) w bazie SQL. W momencie uruchomienia wyszukiwania...
Nie rozumiem takiego negatywnego podejścia do problemu bez sprawdzenia czy proponowane rozwiązanie ma rzeczywiście sens. Jeszcze raz proponuję sprawdzić. Drogi kolega. Już napisałem, skąd się bierze moje "negatywne nadstawienie". Od ponad 20 lat jestem zawodowym programistą i 90% tego czasu spędziłem programując w Pascalu a potem w Delphi. Spędziłem...
Cos w rodzaju kopiowania. Podaje sciezke da katalogu, z ktorego dane maja byc kopiowane, sciezke do katalogu gdzie dane maja byc kopiowane i w tym drugim katalogu utworzone zostaja wszystkie te same pliki oraz katalogi, z tym ze te utworzone pliki nie zawieraja danych - sa to puste pliki. Funkcje ktore wykozystuje program to: FindFirst, FindNext; funkcje...
Sto lat nie pisałem w delphi, ale to chyba poprawne rozwiązanie: [syntax=delphi]IteTmp := Iteracja(ListaIteracji[i]^);[/syntax] I może mała wskazówka, zanim zabierzesz się za takie rzeczy musisz mieć dobrze opanowane podstawy - w tym wypadku wskaźniki. Z tego co widzę to próbujesz wpisywać znaczki (np ^) w różne miejsca i sprawdzasz czy działa - to...
Tworzysz rekord z odpowiednimi polami (odpowied nie do editów), i dopiero wtedy zapisujesz do pliku, tak samo odczytujesz. Stwórz odpowiednie procedury zapisu o odczytu.
Oloam dziekuje Ci slicznie, niech Bóg wynagrodzi Ci w dzieciach :-)... Tylko teraz jeden problem, bo zmieniles rekord Tekst na ograniczony string[255], a tutaj wolałbym mieć AnsiString który o wiele więcej pomieści, czy da się to tak zrobić?
Hm.. tylko że w moim przypadku wychodzi na to ze gubi wartość po przejściu przez procedurę, a nie przed procedurą. Nawet jeśli cały kod w procedurze wziąłem w komentarz Przypadek z defektem const przed parametrem jako że potrzebny jest tylko odczyt. Jeśli nie będzie na to lekarstwa to trudno ale takie pamiętanie o kopiowaniu zmiennych z klasy do zmiennych...
najlepiej ... nieużywać. Działa bezproblemowo (o ile dobrze kojarzę) tylko w aplikacjach BDE z bazą Paradox. Zwykle mam doczynienia z MS SQL Server (poprzez ADO) i tu pojawia się ten sam problem. Szczególnie uciążliwe jest przy tabelach master/detail. Można to dość prosto obejść a robię tak : Tabela.Append; // dodajemy nowy rekord do tabeli Tabela.FieldByName('JAKIESPOLE')...
No dobra. A jeżeli chodzi o zapamiętanie adresu w ostatnim elemencie. tablicy, to chodzi o to, że losowo wypełniony rekord (jego adres) zapisujemy na ostatnim miejscu w tablicy wskaźników? Przy normalnym zapisie do tablicy zawsze wpisuje się od pola pierwszego. A tu wychodzi, że trzeba od ostatniego. Dobrze kombinuję ?
Napotkałem dziwny problem. Jeśli chcę dodać rekord do bazy i wykonuję prostą kwerendę INSERT to czas wykonywania tego z punktu widzenia aplikacji jest rzędu 2-3sekund. W kodzie delphi to wygląda mniej więcej tak: query:='INSERT INTO event_log (gdzie) VALUES (''aaaa'');'; adq.SQL.Clear; adq.SQL.Add(query); adq.Prepared:=true;...
W Delphi masz gotowa klasę Complex dla liczb zespolonych. A tu masz uniwersalny unit, to operacji na liczbach zespolonych. Masz tam także rekord opisujący liczbę zespoloną... Utwórz tablicę takich rekordów i po problemie :) [syntax=pascal]{ unit for complex numbers based on C_reords ----------------------------------------... they are efficient on arrays...
Wiekszosc zmiennych, to zmienne globalne. [syntax=delphi] var Form1: TForm1; usb:dword; pbDriverInstalled :integer = 0; lpguid:tguid; bufer: array[0..255] of byte; buferin: array[0..255] of byte; ib,dl,odczyt:word; poz:TstringList; ini:tinifile; rf:TRodzajflasha; [/syntax] W pierwszej wersji poz bylo tworzone w oncreate formy i mialo byc wykorzystywane...
Mam urucomiony watek i to działa bez problem wygląda tak procedure TForm1.BitBtn5Click(Sender: TObject); var hThread: THandle; THreadID: DWord; // Dane: PDane; begin { hThread:= CreateThread(nil, 0, (at)ThreadFunc, // Adres procedury dla wątku nil, // Rekord z danymi dla wątku 0, THreadID); if hThread = 0 then MessageBox(Handle, 'Nie udało się utworzyć...
To trzeba było tak od razu. [syntax=delphi]TData = record a:Integer; b:Longint; c:Double; e:Boolean; end; var rec:TData; ClientSocket1.Socket.SendBuf(rec,SizeOf(... Nie musisz niczego konwertować na bajty, przekazuj cały rekord.
Jeżeli pobiera kolega date bezpośrednio z serwera, to ta data na 100% zawiera milisekundy. Stąd problem. Duzo łatwiej jest albo podawać datę ze znaną dokładnościa, np. jako integer (tylko data bez czasu) albo tak jak kolega Dżyszla wspomniał, konvertowac datę na samą datę (bez czasu) instrucją CAST. [syntax=delphi]with data.IBQHistoria, sql do begin...
Błąd wyskakuje po przejściu pierwszy raz pętli bo przeładowuje pierwszy rekord a później wyskakuje ten błąd a najlepsze jest to że niema w tej tabeli ani elementu ani kolumny o takiej nazwie :?: Zamieszczam kompletny kod Może dziwnie to wyglądać bo trochę to podzieliłem w buttonach :) Połączenie z bazą MySQLową procedure TForm1.Button1Click(Sender:...
Upsss ale ze mnie ciezko myslacy czlowiek nie dopisalem ze chodzi o Delphi ...:( No i co z tego, powyższy przykład będzie działać także pod delphi, tylko ja bym proponował dodać do pliku jakiś nagłówek który opisuje ile danych jest w którym wymiarze.
Rozmawiamy teraz o Turbo Pascalu czy o Delphi/Free Pascal/Lazarus? Pascal (Turbo Pascal/Borland Pascal) nie ma możliwości deklarowania tablic bez podania rozmiaru (tablic dynamicznych). Natomiast Delphi, jak najbardziej. [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type rekord = record dana1 : integer; dana2 : real; end; var tablica...
Ja również się spotkałem z czymś takim że atrybut Query->RecordCount by równy 0 mimo iż w tabeli były rekordy. Rozwiązaniem było wywołanie funkcji: [syntax=delphi]// Najpierw otworzenie tabeli, czyli Query->Open; // Lub Query->Active := True; // A następnie Query->FetchAll; // która jakby ładuje wszystkie dane // lub Query->Last; // co powoduje przeście...
Sprawa jest bardzo prosta. [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type obiekt = record zmienna1 : Real; zmienna2 : Byte; end; var tablica1 : array [1..1000, 1..1000] of Real; tablica2 : array [1..1000, 1..1000] of Byte; tablica3 : array [1..1000, 1..1000] of obiekt; obj : obiekt; begin writeln('tablica 1 : '+inttostr(1000*1000*sizeof(real)));...
Powinno być raczej for i := 0 to ListView1.Items.Count -1 do
Jeśli masz na mysli zapis do czytelnej dla człowieka postaci, to musisz zrealizować to "ręcznie" zapisując wszystkie pola rekordów.
Ta funkcja nic nie zmieni, bo parametry przekazujesz przez wartość. Jeśli chodzi o podmianę dla tablicy rekordów, to zasadniczo się tego nie zrobi. Jeśli tablica klas, to można podmieniać elementy w taki sposób (ale elementy, nie całą tablicę!). Jeśli chcesz całą tablicę podmienić - zrób z niej tablicę dynamiczną lub operuj na wskaźnikach do niej. type...
mam tam true hmm
Możliwe że źle odwołujesz się do zmiennych. Można się do nich dostać na dwa sposoby: 1) podając najpierw nazwę zmiennej z tym rekordem, potem znak kropki, a następnie nazwę zmiennej w tym rekordzie: np. if zmienna.sender <> 0 then ShowMessage('hhfd'); 2) lub stosując poleceni with: np. with zmienna do begin if sender <> 0 then ShowMessage('dfsd');...
Witam mam bazę typu paradox, nigdzie nie mogę znaleźć jak ograniczyć limit wyników do np: 10. SELECT * FROM tabela LIMIT 0,10 nie działa, jak w przypadku MySQL, jak temu zaradzić, chcę stworzyć katalog produktów w którym po naciśnięciu, przycisku będę ładował kolejne 10 rekordów.
Witam Prosiłbym o poprawę kodu źródłowego ponieważ nie chce mi zapisywać do pliku rekordu.
No oczywiście, że trzeba sprawdzać, generalnie kilka linijek dopisać, żeby program był "idioto odporny" (sprawdzić, czy jest zaznaczona jakakolwiek pozycja, no i przy multi selekcie odpowiednio zareagować). Co do ścieżek - w list view chyba nie da rady tego ukryć tak, żeby jednak pamiętać ścieżki. Trzeba by popracować na rekordach, wyświetlać same nazwy...
Drodzy koledzy. A po co utrudniacie sobie życie, kupując poszczególne pola, skoro można przepisać cały rekord. Poza tym, sprawdzanie tylko pierwszej litery przy sortowaniu, to "lekka bzdura". Czy powinienem przenieść nazwisko jaką pierwsze w strukturze danych? To nie ma żadnego znaczenia. Skoro odwołujemy się do konkretnego pola w rekordzie, to "miejsce"...
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...
Nie programuje w Delphi więc raczej kodem Cię nie podrzucę, ale sprawa nie jest zbyt skomplikowana. Baza będzie składać się z 2 tabel (przynajmniej z tego co podałeś). W pierwszej mamy użytkowników (wszystko co potrzebujesz loginy,hasła itp). W drugiej będziemy mieli wpisy. Problem widzę masz z datą, a chyba nie powinieneś. Ja zrobiłbym to tak: Tabela...
TQuery CBuilder6\Examples\DBTasks\BkQuery TSQLConnection::ExecuteDirect http://www.citforum.ru/programming/delph...
Działa świetnie. Tak, pod warunkiem że chcesz przeczytać pierwsze pole w rekordzie. Jeżeli będzie tych pól kilka/kilkanaście, to odwoływanie się do niech poprzez ich numer, jest po prostu niewygodne i jest to prosta droga do popełnienia błędu. Jeżeli możesz, to zawsze używaj nazw pól. Będziesz miał pełną kontrolę nad rekordem.
delphi odczyt rekord rekord access tablica rekord
przekroczenie limit prędkość sharan ogrzewać zbiornik wyrównawczy instalacja
Schemat elektryczny zmywarki Whirlpool 6th Sense – gdzie znaleźć, jak odczytać Motus PRO 10 Sport 2021 – opony bezdętkowe tubeless, rozmiary, montaż, kompatybilność
