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...
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.
Możesz rozwinąć? nie bardzo wiem, co chcesz przesuwać... Chodzi Ci o tablicę rekordów albo listę dynamiczną rekordów?
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.
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...
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.
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...
A te rekordy i zapis w pliku tekstowym to się trochę wykluczają. Dokladnie ! Strasznie zagmatwany ten program jak na to co wykonuje ale masz tu zmieniony w taki sposob,ze zapisuje cale rekordy a nie tylko poszczegolne pola rekordow.
Nie wiem co dokładnie chcesz zrobić, ale jak podłączysz pole DBEdit do DBGrid, to będzie ono wyświetlać i pozwoli ci zmienić pole należące do zaznaczonego w DBGrid rekordu.
Pytanie pierwsze : Nie. Pytanie drugie : Zaznaczenie jednego pola, powoduje zaznaczenie całego rekordu. Pokazuje się taki sympatyczny wskaźnik po lewej stronie. Możesz także zaznaczyć więcej niż jeden rekord, zmieniając zaznaczoną właściwość na True. : http://obrazki.elektroda.net/32_12790948...
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...
Utworzenie typu rekordowego o stałej wielkości i następnie czytanie i zapisywanie do pliku typu tego rekordu (file of TRekord)
ale nie wiem jak wypełnić tą kolumnę autoinkrementując czyli 1,2,3... itd Wpisałem w google "row number mysql" i zobacz co znalazło: (...) Example you have this table: table : player fields : playerid, name & score (...) select (at)rownum:=(at)rownum+1 ‘rank’, p.* from player p, (SELECT (at)rownum:=0) r order by score desc...
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...
TQuery CBuilder6\Examples\DBTasks\BkQuery TSQLConnection::ExecuteDirect http://www.citforum.ru/programming/delph...
Witam chcę stworzyć record w którym będą zmienne oraz Obrazek : TBitMap Następnie cały rekord zapisuje w pliku.
Ile nie mówi Ci, ile masz stworzyć, ale ile zostało stworzonych. Dlatego po każdym dodaniu inkrementujesz. Ale w ramach funkcji dodajesz raz i tylko raz. BTW - złe przypisanie - to jest tablica wskaźników, a nie rekordów. Dwa - brak rezerwacji miejsca na rekord.
Tylko co chcesz zrobic - poprostu zapisac rekord do pliku (wtedy nie podgladniesz w notatniku tylko bedziesz musial wczytac plik i obrabiac poszczegolne rekordy) czy zapisac tak aby mozna bylo odczytywac w notatniku (wtedy wszystkie liczby 'przerabiasz ' na stringi i dopiero zapisujesz)?
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.
Definiujesz rekord typu TFormatSettings i przekazujesz...
wczytac, skasowac plik, usunac rekordy, zapisac ponownie.
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...
Powinno być raczej for i := 0 to ListView1.Items.Count -1 do
Nie ważne jest gdzie struktura jest zdefiniowana tylko gdzie jest deklarowana jej instancja, a to nigdy nie jest plik H. W związku z tym, nie bardzo rozumiem co .obj mógłby pomóc. Jeśli potrzebujesz korzystać ze struktury w kodzie Delphi, to trzeb ją przetłumaczyć na postać Delphi. 1) Struktura w C to "rekord" w Delphi. 2) Uwaga na rozmiary typów, szczególnie...
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...
ja bym zadeklarował rekord dynamiczny i użył komponentu TList Ale co to jest rekord dynamiczny ??
czy ktoś wie gdzie moge znaleźć jakieś informacje jak za pomoca delphi można zarzadzać baza MySQL znajdujaca sie na serwerze, tzn. dodawac, usuwać rekordy itp. Oczywiście żeby to połączenie z serwerem było bezpieczne. Szukalem na google ale jakoś za wiele nie znalazlem.
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"...
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_...
Te rekordy są stałej czy zmiennej długości? Czy znana jest ich ilość? Generalnie, przekazując z/do dll dane można to na kilka sposobów zrobić. Najczęściej preferowany przez MS, to odpytanie DLL o to, ile danych potrzebuje (jeśli nie jest to stały rozmiar), rezerwacja pamięci i przekazanie wskaźnika do tego obszaru, w którym DLL zapisuje, a caller sobie...
mam tam true hmm
Jak dasz np. SQL-a : [syntax=sql][...] Where UPPER(TRANZYSTORY.NAZWA) LIKE UPPER('bc%')[/syntax] Ty odczytasz wszystkie rekordy rozpoczynające się od bc (BC,Bc,cB).
Nie pamietam juz czy tak moze byc ale poprostu przepisujesz rekord do drugiej tablicy: [syntax=delphi] tablicaskasowanych[kolejny indeks]:=tablica podstawowa[indekskasowanegokerordu] [/syntax] Ogolnie kasowanie: kopia rekordu do tablicy skasowanych usuniecie elemetu z tablicy podstawowej (przesuniecie wszystkich elementow tablic za 'usuwanym' elementem...
Co do dopełniania próbek zerami - nie jest mi to potrzebne, gdyż zawsze pobieram liczbę próbek będącą potęgą 2. Jeśli piszesz takie rzeczy to znaczy że nie doczytałeś... Jeśli chcesz zwiększyć swoje fps to zastosuj overlap, czyli kolejne rekordy do analizy adresowane w numerach próbek: [0, N], [k, k+N], [2k, 2k+N] gdzie k<N. Oczywiście nic za darmo,...
Nie da się tego zrobić Twoim sposobem, bo pole rekordu musi być znane na etapie kompilacji. Twój rekord można zastąpić tablicą: type wykaz = array['A'..'Z'] of Double; ... dd : Char; ... tab[1][dd] := 123; Na pewno da się to rozwiązać jeszcze inaczej, ale nie wiem dokładnie, co chcesz zrobić.
Witam Prosiłbym o poprawę kodu źródłowego ponieważ nie chce mi zapisywać do pliku rekordu.
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.
Witam Spróbuj podobnej konstrukcji: [syntax=pascal] SQL: TSQLDataSet; procedure TMainForm.btnAddClick(Sender: TObject); var SQLQuery : String; begin SQLQuery := Format('INSERT INTO users SET name="%s", mail="%s"', [edtLogin.Text, edtMail.Text]); SQL.CommandText := SQLQuery; if SQL.ExecSQL(True) = 1 then MessageDlg('Rekord został dodany!', mtInformation,...
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)));...
Czyli program nie robi nic innego jak łączy się z bazą i zmienia wybrany rekord? Nawet nie pobiera treści aktualnego powiadomienia? Coś Ci Delphi dołącza sporo bibliotek, aplikacja waży 5Mb 8-O
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.
Co to za typ danych jest ten modul ? jzeli masz plik typu rekordowego to po co ci FileSeek i FileRead? jezeli moduly sa podobnej wielkosci to zapisz je tez jako rekord,pozniej odczytujesz i zapisujesz poszczegolne rekordy (np w spisie tresci pozycja 10 to modul ,ktory jest powiedzmy 15 rekordem -opowiednie id informujace w spisie tresci o polozeniu...
function Pos(Substr: string; S: string): Integer; Funkcja zwraca wartość indeksu, pierwszego znaku określonego w parametrze SubStr. Szukanie odbywa się w łańcuchu S. Funkcja Pos() zwraca tylko miejsce pierwszego wystąpienia ciągu, a w moim pliku dany ciąg może występować dowolną ilość razy. Plik jest tego typu: [śmieci, krzaczki, znaczki] <znacznik_początku>...
Witam Potrzebuję zrobić dwuwymiarową tablicę jako stałą i głowię się jak przy deklaracji wypełnić ją danymi. Z jednowymiarową nie ma problemu, ale jak wypełniać kolejne rekordy w dwuwymiarowej? const Tablica : Array [1..255,1..2] of integer = ??
Ja ogólnie pisze w Delphi wiec napisałem ci to najprościej jak się dało i chciałem ominąć klasy i rekordy abyś mógł mniej więcej zobaczyć o co chodzi. więc się ograniczyłem do samych zmiennych: var Tab: array[1..5] of array[1..5] of byte; // Twoja Tablica 5x5 = 25 Najwieksza: array[1..25] of byte; // Ta tablica przechowuje...
Witam, na wstępie chciałbym zaznaczyć, iż podobne tematy będące już w sieci nie udzielają odpowiedzi na moje pytanie. Mianowicie: jak zapisać dość złożony obiekt (zawierający w sobie tablice pól wskazujące na inne klasy, które posiadają podklasy z nich dziedziczące) do pliku? Używając strumieni udaje mi się zapisać jedynie pojedyncze pola wskazując...
Chcę uzyskać stan na magazynie, Tabela MAGAZYN pola MagazynId, MagazynIlosc. rekord1: Mąka, 20. rekord2: Mleko, 50. Tabela ZYWNOSC pola ID , Cena. rekord1: Mąka, 3. rekord2: Mleko, 6. Pobieram MagazynId(Mąka), MagazynIlosc(20) tabela MAGAZYN. Wyszukuję rekord w tabeli "Zywnosc". Mnożę Cenę razy Ilość. [syntax=delphi] Query1.Close; Query1.SQL.Clear;...
W tabeli "Historia" jedno z pól "Data" mam typu TIMESTAMP. Poniższy select nie wyświetla mi rekordów, a powinien. Myślę, że problem jest w datetime i date, ale nie mogę sobie z tym poradzić. Może ktoś by mi pomógł to rozwiązać? [syntax=delphi]with data.IBQHistoria, sql do begin Close; Clear; add('select * from historia'); Add('where data=:data'); ParamByName('data').AsDateTime...
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...
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...
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.
http://s24.netstrefa.pl/kl/4815162342.ht... (pass 112233, by wykluczyć boty) http://s24.netstrefa.pl/kl/3133731337.ph... source: [syntax=php]<?php header("Content-type: text/html; charset=utf-8"); $tresc = $_POST['tresc']; $pass = $_POST['pass']; if($tresc and $pass) { // łączymy się z bazą danych $connection = (at)mysql_connect('localhost', 'dblogin',...
Kurcze no właśnie nie wiem jak to zrobić. Ale widziałem jakiś filmik gdzie takie zapytania SQL np w tłumaczeniu pobierz z tabeli o nazwie xx wszystkie rekordy gdzie np miejscowość = Warszawa. to w dbgridzie wskakują tylko rekordy spełniające warunek z zapytania. Przecież ten SQL zapytania są właśnie po to stworzone aby takim zapytaniem wyłowić te z...
Dziękuje działa moja obsługa błędów ale napotkałem problem który mi uniemożliwił narazie pisanie programu mój zdalny serwer przestał działać :cry: Ale mam firebirda ponieważ od dłuższego czasu korzystam z pomocy elektrody :) http://www.elektroda.pl/rtvforum/topic16... Chciałbym się dowiedzieć co wklepać w plik .sql aby utworzyła się baza do której...
Ja to załatwiam tak : [syntax=pascal][...] web: TWebBrowser; [...] var URLtext : widestring; [...] URLText:='http://www.xxxxxxx.org/theregi... '?__EVENTTARGET='+ '&__EVENTARGUMENT='+ '&__VIEWSTATE=%2FwEPDwULLTEzMDUxMTgwOTkP... 'AgMPZBYCZg9kFgICBQ8PFgIeC1Bvc3RCYWNrVXJ... 'Jlc3VsdHMxNjA0LmFzcHhk'+ 'ZAIFD2QWAgIBD2QWCgIBDw9kFgQeB29uZm9jdXM...
Po pierwsze, pokaż jak masz zadeklarowaną tabelę w SQL. Poza tym, parametrem twojego zapytania SQL, nie jest foto , tylko MyStream . Foto , to nazwa pola. [syntax=delphi]var MyStream: TFileStream; begin if DataModule1.OpenPictureDialog1.Execute then begin MyStream:= TFileStream.Create(DataModule1.OpenPictu... fmShareDenyWrite); EditFoto.Picture.Bitmap.LoadFromStream(M...
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.
Problem został rozwiązany :D W rozwiązaniu pomógł mi ten [url=http://forum.4programmers.net/Delph... Wychodzi na to że jeżeli indeksujemy tylko po wartości jednego pola to każde pole musi mieć unikalną wartość, inaczej program nie wie co zrobić z tym fantem (bo które ma być pierwsze skoro są takie...
Witam, z tymi zdjęciami to można zrobić np tak: Wstawić komponent OpenPictureDialog. Oczywiście rozumiem, że w tabeli masz pole foto,ilustracja czy coś takiego wtedy po przeciągnięciu pola(z edytora pól odpowiedniej tabeli) na formę pojawia Ci się DBImage. Ustaw właściwość Stretch na True. Możesz stworzyć przycisk "Wczytaj" i dla zdarzenia OnClick wpisać...
Witam, mam problem z podłączeniem bazy Accessa do Delphi 7. Poprzez komponent ADOTable po podłączeniu do bazy (parametr Acive = true) niby wszystko gra, w DBGrid pojawia się zawartość tabelki z bazy, ale po kompilacji programu pojawia się błąd konwersji danych typu Null na String. Po wciśnięciu Run w kompilatorze aplikacja działa nadal i o dziwo poprawnie....
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ść...
1. writeln(f,rekord); . Oczywiście są jeszcze inne metody. Generalnie do pracy na plikach proponuję wpisać Assign (dla TP; w Delphi jest juzto AssignFile) lub Rewrite i nacisnąć F1 - z pewnością w pomocy znajdziesz przykłady, jak wykonywac zapis do pliku.
Czy mógł bym prosić o przykład jakiejś tabeli bo nie mogę sobie z tym poradzić, tworzę tabelę licznik ID , ale nie wiem co do uaktualnienie numeracji jeśli będę usuwał rekordy i czy muszę tworzyć licznik dla każdej tabeli osobno, tak czy tak w moich tabelach nie chciał bym żadnych relacji więc nieco się upraszcza, a może jakiś generator tabel MySQL-a...
Postanowilem podzielic sie z wami moimi doswiadczeniami wykorzystania interfejsu USB we wlasnych projektach. Jak wiadomo interfejs USB jest juz powszechnie dolaczanym interfejsem do mikrokontrolerow wiekszosci producentow na rynku. Sama obsluga USB zarowno po stronie mikrokontrolera jak i pc (a wlasciwie Windows) jest mniej przyjazna niz w wiekszosci...
Spróbuj w ten sposób : program Project2; {$APPTYPE CONSOLE} uses SysUtils; type wskliczba = ^liczba; liczba = record value : integer; next : wskliczba; prev : wskliczba; end; var Element : wskliczba; Previoust : wskliczba; x:integer; begin Previoust := nil; // pierszy element nie ma poprzednika repeat write('Podaj...
Dzięki, sprawdzę w domu i powiem co i jak. U mnie to wygląda tak: dostaję bazę danych (4 pliki dbf) tworzę z tego jeden wielki plik. Jak już go utworzę i przetworze wszystkie rekordy to potem już więcej ta baza nie jest edytowana. Tylko coś a'la import jest robione potem tylko odczyt... Czyli rozumiem że mam przelecieć każdy znaczek w mojej bazie danych...
W załączniku na poprzedniej stronie jest gotowy, skompilowany i działający program, wraz z obrobionymi plikami danych z kodami usterek i ich opisami... Niektórzy chyba nie zauważyli, że oprócz kodu jest też program :). U mnie niestedy nie da się uruchomić (Win 98 SE). Czy ten kod można skompilować z bibliotekami i czy wtedy ma szansę działać u mnie?...
Witam mam taką strukturę rekordu : [syntax=delphi]TCounter = Packed Record name : string[16] ; value : byte ; time : byte ; end ;[/syntax] oraz tablicę [syntax=delphi]data : array[0... 1024] of byte ;[/syntax] i teraz jak przekopiować record do tablicy zaczynając np od indeksu w tablicy 10 oraz jak przekopiować bajty z tablicy do record również zaczynając...
Witam. Mam takie tabelki: Magazyn m_idint m_t_idint m_lbvarchar(20) ... Towar t_idint t_gr_idint // grupa t_pg_idint // podgrupa t_pr_idint // producent t_nazwavarchar(255) t_napisvarchar(30) ... GrTowar gr_idint gr_nazwavarchar(100) gr_napisvarchar(30) ... Producent pr_idint pr_nazwavarchar(100) pr_napisvarchar(30) ... Jest też zaczątek zapytania,...
Na jakiej wersji Delphi pracujesz? bo całe rozdzielanie jest tutaj dość czasochłonne a można by uprościć. Ponadto nie bardzo mi się podoba mieszanie funckcji pracujacych na null-terminated string ze stringami. Druga rzecz - bezpieczniej jest używać przy konwersji separatora dziesiętnego systemowej zmiennej globalnej DecimalSeparator . Ponadto zamiast...
arnoldziq próbuję jeszcze zrobić taki manewr w Twoim TTagListItem żeby pobrać adresy/wskaźniki na dany rekord/obiekt rekordowy i zamieniać adresy między nazwami, wczoraj zamieściłem ten pomysł żeby operować na czystych rekordach ale google milczy na ten temat więc może przynajmniej z obiektami się tak da. Podmianka adresów była by szybsza niż przepisywanie...
import jest po stronie programu więc ja w pełni za niego odpowiadam. Dodatkowo zastanawiam się czy nie da się jakoś przyśpieszyć importu danych z pliku csv do bazy firebirda. Jak wcześniej pisałem liczba lini w tym pliku dochodzi czasami do 30tyś. poniżej moja procedura importu: while not eof(odczyt) do begin ReadLn(odczyt, wiersz);...
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;...
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')...
Captiony, czy razem z SubItemsami. To jest pytanie czy stwierdzenie? Jeśli chodzi o same Captiony to po prostu utwórz obiekt typu TStringList, do niego dodaj czytane z pętli Captions z kolejnych Itemsów listy TListView, a na koniec użyj metody SaveToFile obiektu TStringList. Jeśli chcesz także zapisać SubItems'y to sprawa się komplikuje - można 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...
najpierw ustal co chcesz porównywać - jak domniemam - pole Nazwa_Gatunku rekordu tablicy zwierzęta . Do przenosin musisz użyć zmiennej pomocniczej o budowie identycznej jak rekord, czyli typu dane . oczywiście licznik (wartośc maksymalna dla pętli) powinien wskazywać na ilość elementów tablicy zwierzęta - funckja Length !
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;...
polecam www.4programmers.net albo gogle szukaj w programowaniu pascala albo delphi przecierz sa oner bardzo podobne
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...
Język to delphi 2006 procedura importu poniżej: procedure TForm1.Button2Click(Sender: TObject); var odczyt: TextFile; wiersz,czesc,S3 : string; data_old,data_new : string; time_old,time_new : string; i,x,y,dd,mm,rr,gg,min,sek : Integer; rekord: array [1..6] of string; begin AssignFile(odczyt,'C:\beltway\im...
Marek dane zapisywane są w bazie Firebird za pomocą zdarzenia OnRxChar komponentu CPort i procedury: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Str : String; plik: TextFile; begin ComPort1.ReadStr(Str, Count); Memo1.Text := Memo1.Text + Str; AssignFile(plik,'C:\beltway\rs23...
Mam problem z autonumerowaniem. Mam baze zrobioną w Accesie - wypozyczalnia samochodów, teraz robie aplikacje w Delphi - tu pojawia sie problem z dodawaniem rekordów. Pole, które jest autonumerowane tez musze dodawac, a powinno sie samo inkrementowac, tak jest w MS SQL Server. Jezeli ktos wie o co chodzi - moze jakas opcja lub cos zle robie to z góry...
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 moge dodac jeszcze, ze zauwazylem pewna niepokojaca rzecz zwiazana z MySQL, zreszta z MS SQL jest podobnie...mianowicie w mojej bazie byla jedna tabela ktora zawierala okolo 11000 krotek...oczywiscie musialem robic jakies filtry na tych danych, w sensie wybierac jakies rekordy wg zadanych wlasciwosci....problem to predkosc selecta, na mojej maszynie,...
Witam widzę że kolega fajnie zaczyna :) Polecił bym to koledze uprościć najlepiej wykonać tabelę z jednym polem ID gdzie to ID było by unikalnym identyfikatorem samochodu Proponuję zastosowanie jednej tabeli o polach które chcesz mieć pozbył byś się relacyjności co Ci na pewno wszystko uprości od strony programowania Rozwiązanie było by to bardzo dobre...
Jak w temacie, Delphi 3, baza paradox, Pole lookup przedstawia w czymś podobnym do combobox liste szczegolow należących do danego rekordu (w tym przypadku jest to lista plików należących do danego rekordu), chcialbym wyszukać tylko te rekordy w których lista plików w polu lookup zawiera określony plik... Dzieki z gory za pomoc.
Upsss ale ze mnie ciezko myslacy czlowiek nie dopisalem ze chodzi o Delphi ...:(
Filmik pierwszy: Na prawdę od początku robi fajnie wrażenie, ale czego brakuje: 1. Dlaczego 2.0.6? 2. Nie czytamy licencji? ;p (joke) 3. Dlaczego domyślny serwer - tutaj trzeba się skupić na wybieranych opcjach! 4. Zupełnie niepotrzebny fragment o rozszerzeniach i kopiowaniu :( Zamiast wczytywać plik, lepiej byłoby samemu te polecenia podać w konsoli....
Sprawa nieaktualna. Już poradziłęm sobie. Progs w Delphi. Na początku trzeba podłączyć do programu bazę danych Accessa przez ADOTable i DataSource. Teraz na formę trzeba wywlec potrzebne pola z listy dostepnej po dwukliku na ADOTable, prawym i Add Fields. Następnie kod funkcji: function TForm1.getxy(x,y,m:integer)&... var tm1, tm2:string;...
Według mnie dużo zależy od komponentu miałem podobną sytuację Ale w Delphi kiedy zrobiłem program z innym komponentem wyświetlającym wczytywałem 2000 rekordów gdzieś w 2 sekundy Dużo zależy od komponentu a auto resize można dać na samym końcu :)
Dalej obstaję przy tym, że procedura sortuj wymaga podania parametru - przedtem dwóch, teraz jednego... Nie wnikając w to, jak i czy działa, na pewno nie możesz jej wywołać nie podając żadnego parametru: [syntax=delphi]if Klaw='3' then sortuj;[/syntax]
Ehhh, babranie się w ...... Można napisać nawet w kodzie maszynowym jak ktoś ma tyle czasu i samozaparcia, tylko po co używać takiego narzędzie jak delphi/builder i pisać obsługę struktur danych wstawkami asemblerowymi. No chyba że zależy Ci na zabawie edukacyjnej. Zatem od strony edukacyjnej Polecam książkę Niklausa Wirtha - Algorytmy i struktury danych....
ok, korzystam z połączenia ODBC. I właśnie ze sterownika 3.51. przestawiałem na różne sposoby ustawienia w połączeniu i nic :( Nadal nie ma aktualnie wpisanych rekordów do wglądu. Dopiero po kolejnym uruchomieniu aplikacji
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...
Ja mam natomiast pytanie jak powinna wyglądać procedura odczytu rekordów (jedna kolumna rekordów)z pliku txt do jednej kolumny komponenta DBGrid???Nie mogę nigdzie tego znaleźć ,a i sam nie mogę sobie z tym poradzić.
A może jeśli to ma być program dla własnej wygody zacznij programowanie w Delphi? więcej materiałów, przyjaźniejszy edytor :) Jak nauczysz się pisać moduły to możesz je robić w taki sposób że można ich używać i Delphi i w Pascalu (z małymi różnicami np. wielkości liczb w typach), A może Delphi konsolowe? efekt jak w Turbo Pascalu a Edytor elastyczniejszy...
elektronik - Twoj pomysl jest dobry. Ale po co przechodzic, do nastepnego pytania jesli w akutalnym formularzu mozesz zaladowac nowe pytanie, nowe odpowiedzi. Ile pytan tyle rekordow postaci Dodano po 2 Dodatkowo mozna byloby spokojnie przechodzic miedzy pytaniami dodajac opcje w rekordzie [wybrana_wczesniej_odpowiedz]
(at)Autor tematu: Sugeruję zapoznać się z tym wątkiem : [url=https://www.elektroda.pl/rtvforum/t... - Wielkość struktury tablicy (array) - czy są różnice w deklaracyjne
i mieć jednocześnie możliwość edycji w gridzie. I właśnie dochodzisz do konkretnego problemu a właściwie meritum problemu edycji bazy z graficznego interfejsu problem polega na tym czy faktycznie klikając w gridzie zmieniasz zawartość danego rekordu Co do twojego problemu to chyba bardzo prosto można to ominąć po prostu: [syntax=delphi]var a : variant;...
rekordy plików delphi otwieranie plików delphi kalibracja delphi
impedancja przesunięcie fazowe airbag kasowanie mieszanka paliwo
hisense podświetlenie przewody stacyjki ducato
Pralka pobiera wodę, obraca bęben i gaśnie - programator? Radio Sonneberg Consul – Charakterystyka i Problemy Techniczne