Chodzi o zrobienie prostej bazy danych w której mają się znajdować dane osoby: imię, nazwisko, wiek oraz numer osoby. Według kolegi jaka byłaby najprostsza metoda zapisu i odczytu danych?
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.
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...
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...
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);...
Rekord to zmienna, w programie mam inaczej, zmieniłem aby uprość kod. to akurat działa, bo używam identycznie do edycji rekordów bazy, W tabeli mam kilka pól typu ALPHA, i pole 'Foto' typu Binary. Prędzej wysyłałem poprzez Table, i wszystko działało, ale muszę przejść na SQL. [syntax=delphi] DataModule1.Tabela.Edit; if DataModule1.OpenPictureDialog1.Execute.....
Witam, Mam pytanie dotyczące jak w temacie importu danych z pliku csv do bazy Firebird 2.0. Obecnie procedura importu wygląda tak: procedure TForm1.Dataimport1Click(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;...
Podesłałbym Ci mój projekt, nad którym pracują od paru miesięcy: modelowanie obiektów w 3d na podstawie zdjęć przedmiotu w rzeczywistości. Dla użytkowników Delphi, jest spore ułatwienie. Mamy dostępny komponent videograb. Wyglądem przypomina TImage, ale ma taki patent, że wyświetla obraz z kamery internetowej i można go zapisać do schowka, do obiektu...
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...
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...
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ć.
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...
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...
Czy są jakieś komponenty których mogę użyć do tego celu zamiast zapytania SQL. Być może istnieją takie komponenty, ale nigdy żadnego nie widziałem ani nie używałem. Jak sama nazwa wskazuje, SQL (Structured Query Language) to język zapytań którym komunikujesz się z serwerem. Jeżeli istnieje jakiś pół-automatyczny komponent, coś jak DB, do komunikacji...
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)?
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...
Dzięki już wiem o co chodzi :D. Że tak jeszcze pozwolę sobie o coś spytać. Próbowałem odczytać liczbę wierszy z DBGrid i już nie wiem o co chodzi. label3.Caption:=IntToStr(Form2.I... wynik 18, czyli tyle ile DBGrid mi wyświetla jednorazowo, wystarczy przesunąć scrollbar'a żeby zobaczyć, że rekordów jest więcej niż 18. type...
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...
Chodzi mi o to że Strumień z zawartością np 100 rekordów TDane i do komponentu Memo dodaję nazwę odczytaną ze rekordu np: for i:=0 to Strumień.Size -1 do begin Memo1.Items.Add (Dane http://obrazki.elektroda.pl/5234077300_1...
Witam Mam plik rekordowy (nie mój) w którym jest zapisana tablica o następujących danych w jednym rekordzie : - integer (4 bajty) - integer (4 bajty) - byte (1 bajt) - boolean (1 bajt) aby ją wygodnie odczytywać stworzyłem type my_type = record i1: integer; i2: integer; b: byte; bo: boolean; end; ale powstał problem ponieważ SizeOf(my_type) wynosi 12...
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....
Z czego odczytujesz rekord bo nie widzę połączania z żadną bazą domyślam się że z DbGrida :?: Kolego formatuj kod bo to masakra albo wstaw w treść postu bo jak może zauważyłeś mamy mechanizm kolorowania składni dla mnogości języków. W innym wypadku nikt nie da rady pomóc, tylko podenerwuje się.
A jeszcze, o której wersji mówimy? Bo obecnie używa się FormatSettings.DecimalSeparator. Więc czy na pewno mowa jest o tej samej globalnej zmiennej w każdym miejscu? FormatSettings jest zasadniczo tworzony podczas inicjalizacji, ale może być także ponownie odczytany w przypadku odebrania wiadomości o zmianie ustawień regionalnych w klasie TApplication...
ta kontrolka to właśnie lampka migająca w samochodzie która zapala się i gaśnie odpowiednią ilość razy i to oznacza dany kod. a za pomocą interfejsu podłącza sie samochud do komputera w moim przypadku do laptopa i za pomocą programu np. VWtool można odczytać kod błędu... Teraz to dopiero mi zamąciłeś w głowie. Błagam Cię napisz porządnie i dokładnie...
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;...
Witam Transakcji używam tylko do zapisu (edycja danych, dodanie nowego rekordu). Czyli zasadniczo myśląc o pracy sieciowej a w szczególności jeżeli chodzi o edycję danych nie mogę używać DBEdit i pobierać do dbgrida tylko do odczytu. Dane edytować w zwykłych editach i aktualizacje robić poprzez UPDATE
Może, źle wytłumaczyłem problem. Chcę utworzyć tabele w dll. i później móc korzystać z niej w programie głównym. Czyli deklaruje tablice w bibliotece i w głownym programie i tworzę tablice w bibliotece a później odczytuje wartości w programie głównym z biblioteki, czyli korzystam praktycznie z biblioteki w której znajdują się tylko i wyłącznie tablice,...
Już dawno nie bawiłem się w Delphi ale jak dobrze pamietam używa sie tam Pascala. 1. Więc jeśli się nie myle pliki powinno otwierać cię tak jak w Pascalu. var pliki:array[1..16] of string; i:integer; p:text; liczba:integer; begin {tu sie powinno znaleść wypełnienie tablicy ścierzkami dostępu} for i:=1 to 16 do begin...
3 pytania mam po przeróbce programu; 1 Jak wczytać dane z pliku do tablicy po każdym uruchomieniu programu? 2 czemu po dodaniu danych do tablicy potem zapisaniu do pliku wyskakuje błąd jeżeli chcem odczytać dane z pliku.. bez dodawania danych odczytuje normalnie? 3 jak zrobić by dodając towar z magazynu do sprzedazy, ubywała ilość w magazynie? [syntax=delphi]program...
Witajcie Mam napisac program ktory odczytuje dane z pliku tekstowego a nastepnie przepisuje zawartosc do tablic i rekordow i na tej podstawie analizuje wyniki rekrutacji studentow na studia. Generalnie mam juz wszystko oprocz wykresow. Jak zrobic za pomoca komponentu TChar rysowanie wykresu slupkowego dajmy na to plci. Mamy np 5 mezczyzn oraz 3 kobiety...
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...
Wielkie dzięki u mnie kodowanie zmieniam bezpośrednio w kontrolce wpisując z palca kodowanie Znalazłem odpowiednik RichEdita do lazarusa i go stosuję, ale na razie zająłem się podstawowa rzeczą odczytem modyfikacją i ponownym zapisem do bazy SQL-owej Zmiana kodowania na UTF8 w kontrolce pomogła i odczytują się polskie znaki ale niestety nie zapisują...
Witam, A proszę Ciebie bardzo :P Nic prostszego, Tworzymy plik rekordowy i ognia :) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Math, ExtCtrls; //tutaj nasz record type TZapis = record dane : array [1..4, 1..12] of Double; end; type TForm1 = class(TForm)...
Witam właściwie nie wiem czy w dobrym miejscu piszę jeśli nie to proszę o przeniesienie. Mam problem ponieważ piszę aplikację w Delphi która łączy się i odczytuje zawartość bazy danych opartą na SQL-u lecz mój serwer testowy padł i niestety nie mogę testować mojej aplikacji Mam prośbę bo zapewne to chwila ale ja nie znam się na "stawianiu" serwerów...
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).
Przyznam się, że utknąłem :/ Robiłem to wcześniej setki razy, a teraz, z nieznanych przyczyn nie mogę odczytać przychodzących Event-ów :( Zacznę może od początku. Tworzę cobie na dysku bazę za pomocą Firebird 2.5, takim skryptem :[syntax=sql]CREATE DATABASE '127.0.0.1:d:\BAZADANYCH.FDB' user 'SYSDBA' password 'masterkey' ; create table TEST ( TEST_ID...
Ja w Delphi5 odczytuję najpierw kolejne id z odpowiedniego generatora a potem dodaję rekord zwykłym zapytaniem. Stwórz sobie generator. np; [syntax=sql]CREATE GENERATOR GEN_ALARM; SET GENERATOR GEN_ALARM TO 1[/syntax] A potem tylko odczytuj ID wywołując taką procedurę : [syntax=sql]CREATE PROCEDURE GETALARMID RETURNS ( NUM INTEGER ) AS begin NUM = gen_id(GEN_Alarm,1);...
Pierwszym krokiem będzie poprawne odczytanie pliku txt, w celu pobrania danych. Jeżeli każdy plik ma ten sam układ, to będzie to dość proste. W podanych przez Ciebie przykładach, każdy plik/sekcja pliku zaczyna się od znacznika ( NS; oraz KO; ) następnie następuje znacznik C; oznaczający rozpoczęcie bloku z danymi. Sugeruję zrobić to w następujący sposób....
No jeśli używam indexów to otwarcie tabeli i odczyt trwa ułamek sekundy. TQuery to już inna bajka i do prostych odczytów nie stosuje wole indexy. PS. oczywiście jak podłączysz to do jakiegoś grida to to jeszcze dłużej trwa. Moja tabeleczka 600 MB ma 8109599 rekordów 8 milonów 110 tysięcy
Otwierasz plik jako binarny i czytasz odpowiednie wielkości do odpowiednich zmiennych. [syntax=Delphi]function TMainForm.GetWaveHeader(const FileName: String): TWAVHeader; var DataStr: array[0..3] of char; begin try with TFileStream.Create(FileName,fmOpenRead),... do begin try Seek(20,soFromBeginning); ReadBuffer(Format,2); ReadBuffer(Chanels,2);...
Niczego to nie zmienia. Wciąż musisz osobno zapisywać pozycje rekordu, gdyż wciąż jest to tylko wskaźnik. To może już prościej dziedziczyć z klasy TComponent i używać Read/Write Component? Aczkolwiek radziłbym po prostu napisać funkcję, która zapisze rekord do pliku (strumienia). Pamiętaj, że przy odczycie wcześniej będziesz musiał stworzyć stosowny...
A moze najprosciej tak.... sorki ze bez kodu, ale dawno nie programowalem, ale sluze algorytmem: WERSJA 1 1. Zrob kopie pliku do np serwis_tmp.xml (moze sie kiedys przydac jakis backup a tak kopia jak znalazl). * Kopie mozesz zrobic w petli (nie wiem czy dostepna jest PHP instrukcja kopiowania jakiegos pliku przez podawanie nazwy) while do... z warunkiem...
1. Instalacja Firebird. Wersję instalacyjną Firebird-a można pobrać np. stąd : http://obrazki.elektroda.net/70_12682138... http://obrazki.elektroda.net/43_12682138... http://obrazki.elektroda.net/90_12682138... http://obrazki.elektroda.net/12_12682138... http://obrazki.elektroda.net/11_12682138... Instalację...
Stworzylem maly programik , ktory m.in. zapisuje record do pliku przy uzyciu TFileStream. Dzisiaj ponownie wrocielm do tego programu aby go zmodyfikowac .Okazalo sie ,ze nawet nic nie zmieniajac w zrodle po ponownej kompilacji tworzy pliki o innym rozmiarze , dokladnie ujmujac wiekszy o 248 bajtow. Przy probie odczytu pliku pojawia sie blad odczytu...
Najczęściej zadawane pytania : Jaki język programowania wybrać? Wszystkich, których interesuje to pytanie, kieruję do wyszukiwarki forum, lub do dokładnego przejrzenia tego wątku : - Jaki język programowania wybrać ? Obsługa Portu LPT : - LPT FAQ - VisualBasic6 i INNE RS232 pod Linux : - Serial-Programming-HOWTO.pdf Visual Basic : - 0-255 ASCII Przez...
delphi rekord delphi odczyt delphi comport odczyt
grzałka spiralny zepsuta listwa oddam maxim
samsung ue50ju6400 światło awaryjne
Seagate Personal Cloud SRN21C - formaty plików i kompatybilność Sharp TV: Kolorowe pionowe pasy po 10 minutach
