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...
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
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...
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?
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...
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. 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...
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...
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ę.
Można, przynajmniej na kilka sposobów. Pierwszy i najprostszy, to dodać do rekordu znacznik modyfikacji. Drugi, to tak zwany Trigger. Jest to skrypt wykonywany automatycznie przez serwer, w przypadku zauważenia przez serwer zmian w zawartości bazy 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ć.
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...
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...
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....
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.
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...
W tabeli "Magazyn" , pole "MagazynId" rekord "ZW158", "AG122" szukam identycznego rekordu w tabela "Zywność", lub tabeli "AGD". Przerabiam wynik z tabeli "Magazyn", na nazwę tabeli. [syntax=delphi] // Przypisanie wartości zmiennej Marka. Utnij:= ResultMagazynId; if Length(Utnij) > 2 then // Jeżeli znaków wiecej niż 2 to... Delete(Utnij, 3, 100); //...
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);...
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...
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...
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;...
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...
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...
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...
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...
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....
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ę...
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...
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...
delphi odczyt delphi comport odczyt odczyt sterownika delphi
palet maszyna pułapka basowa programator zmywarki bosch
łucznik naprężacz sprinter podłączenie webasto
Jak zamontować nasadki na śruby w Oleo Mac 938? Czy TBA120S można zamienić na TBA120T?