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.
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...
Nie zrozumieliśmy się. :) Mnie bardziej chodzi o to, że jeżeli chcesz edytować dowolną tabelę za pomocą tego samego formularza, to będzie to bardzo ciężkie zadanie. Po prostu nie bardzo jest możliwość szybkiego odczytu/przechowywania danych na temat typów danych w rekordach danej tabeli. Aby zmienić jeden/wiele rekordów musisz wysłać do serwera zapytanie...
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.....
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);...
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;...
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...
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...
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ć.
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...
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...
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...
TCheckListBox też ma własność tego typu. To spod S jest wyświetlane. To spod AObject jest przechowywane w tablicy Objects, czyli u Ciebie zrzutowany na TObject rekord (choć łatwiej by było, abyś zamiast rekordu użył klasy). Teraz odczytując po kolei elementy z tablicy obiektów odczytasz porządek. Wykorzystując funkcję Replace możesz zamieniać miejscami...
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.
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...
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...
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ę.
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)?
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...
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...
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...
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....
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ą...
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,...
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
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
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;...
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....
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...
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...
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...
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);...
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...
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)...
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...
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);...
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...
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
palet maszyna amazon assistant honda civic termostat
Tarcze retardera Telma, Voith, ZF – przyczyny ocierania, objawy, diagnostyka Zelmer Oceanik – demontaż silnika, instrukcja krok po kroku, modele 919, 829, 619