[delphi-7] Record in File opslaan. Hoe ?

[anoniem]

Hey. 2 vragen : [b:f3cb189331]VRAAG 1[/b:f3cb189331] Ik ben een klein programma aan het maken, maar het lukt mij maar niet om een Record in een File te krijgen. Als ik dit doe, (is dus in de enige Unit (Unit 1)) [code:1:f3cb189331] Type TPerson Name : string[255]; Age : shortint; Adress : string[255]; City : string[88]; Country : strring[88]; END; TPersonFile = File Of TPerson; VAR Person : TPerson; PersonFile : TPersonFile; [/code:1:f3cb189331] krijg ik de melding : Type 'TPerson' needs finialization - not allowed in file type. Weet iemand wat ik hier aan doe ? [b:f3cb189331]VRAAG 2[/b:f3cb189331] Is er een andere manier van gegevens gezamelijk op te slaan. Dus een andere soort database. (anders=niet Record) Alvast bedankt, Turbo-Pascal !

[anoniem]

[quote:69f4fab741="turbo-pascal"] [b:69f4fab741]VRAAG 1[/b:69f4fab741] Ik ben een klein programma aan het maken, maar het lukt mij maar niet om een Record in een File te krijgen. Als ik dit doe, (is dus in de enige Unit (Unit 1)) .... krijg ik de melding : Type 'TPerson' needs finialization - not allowed in file type. Weet iemand wat ik hier aan doe ? [/quote:69f4fab741] Probeer dit eens [code:1:69f4fab741] Type TPerson = record Name : string[255]; Age : shortint; Adress : string[255]; City : string[88]; Country : string[88]; END; TPersonFile = File Of TPerson; VAR Person : TPerson; PersonFile : TPersonFile; [/code:1:69f4fab741] [quote:69f4fab741="turbo-pascal"] [b:69f4fab741]VRAAG 2[/b:69f4fab741] Is er een andere manier van gegevens gezamelijk op te slaan. Dus een andere soort database. (anders=niet Record)[/quote:69f4fab741] * Iets lastiger, maar compacter. D.m.v. TFileStream. * Een echte database gebruiken? Er bestaan databases waarbij je de engine als component in de executable kan stoppen.

[anoniem]

Ben ik nou blind, of wat. Je hebt dezelfde code als mij ....

[anoniem]

[quote:0ad122c474="turbo-pascal"]Ben ik nou blind, of wat. Je hebt dezelfde code als mij ....[/quote:0ad122c474] Er staat (o.a.) = Record achter TPerson. Typfout strring is er ook uit ;)

[anoniem]

Ah :) Dat = Record Stond er ook achter. Ben ik hier ff vergeten :oops: Bedankt, maar het probleem is dus nog niet opgelost. Ik heb al meerdere dingen geprobeerd, zoals [code:1:75190887e3] Tperso...... .... VAR Person : TPerson; PersonFile : File Of Person; [/code:1:75190887e3] en [code:1:75190887e3] Tperso...... .... VAR Person : TPerson; PersonFile : File Of [b]T[/b]Person; [/code:1:75190887e3]

[anoniem]

Ik zou lekker een database gebruiken als ik jou was 8)

[anoniem]

[quote:6bd667ff4a="turbo-pascal"]Bedankt, maar het probleem is dus nog niet opgelost.[/quote:6bd667ff4a]Wat is nu de [b:6bd667ff4a]exacte foutmelding[/b:6bd667ff4a] met de bijbehorende code?

[anoniem]

[code:1:5a268a7282] Type TPerson =packed record Name : string[255]; Age : shortint; Adress : string[255]; City : string[88]; Country : string[88]; END; VAR TPersonFile : File Of TPerson; Person : TPerson; PersonFile : TPersonFile; [/code:1:5a268a7282] packed record gebruiken geloof ik (delphi niet bijdehand nu)

[anoniem]

Bijna goed krekel. Dat Packed moest er idd bij, maar het moest zo: [b:304846b40d]Unit1[/b:304846b40d] [code:1:304846b40d] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; Type TPerson =packed record Name : string[255]; Age : shortint; Adress : string[255]; City : string[88]; Country : string[88]; END; TPersonFile = File Of TPerson; var Form1: TForm1; Person : TPerson; PersonFile : TPersonFile; implementation {$R *.dfm} end. [/code:1:304846b40d] Die werkt :D THANX !

[anoniem]

En wat kan je ermee eigenlijk? Dus hoe pas je het toe?

[anoniem]

[quote:efe3082cf0="Johan Stokking"]En wat kan je ermee eigenlijk? Dus hoe pas je het toe?[/quote:efe3082cf0]Zoals je het zelf wilt. Je kan er van alles mee, maar op deze manier heb je de juiste benodigdheden (record en VAR's) om een record weg te schrijven naar een file. Ik ben met een programma bezig, als die een beetje opweg is laat ik je wel zien hoe je het oa kunt gebruiken. (jij krijgt dan de exclusieve source erbij :P)

[anoniem]

Ben er benieuwd naar ja. Het komt eigenlijk neer op een soort simpele database. Gister was ik ook even bezig met zoiets. Ik zal de help even nakijken hoe het precies werkt.

[anoniem]

Ik programeer (ook) in Turbo-Pascal en daar ken ik dat van (record als database). Aangezien Delphi ook met Pascal werkt dacht ik laat ik het maar proberen. (ObjectPascal / DelphiPascal, gewoon een variant op gewoon Pascal)

[anoniem]

Heb jaren TP gedaan, maar was dit nog niet tegen gekomen :)

[anoniem]

Hoe sloeg jij data op dan ? In losse textfiles, die je eerst uit je kop moet kennen :-? ? En dan nog iets, de site uit je profiel werkt niet :lol: :roll:

[anoniem]

Hoe ik data opsloeg... Daar vraag je me wat. Als ik al iets opsloeg dan was het in een tekstbestand ja. Maar da's ook zo lang geleden inmiddels. :) Link doet het weer trouwens.

[anoniem]

[url=http://www.delphicorner.f9.co.uk/articles/apps6.htm]Engelse Tutorial...[/url] (Als extra aanvulling)

[anoniem]

Jaah, als je met Johan over records begint wordt je gauw overtuigd om db's te nemen :P :wink:

[anoniem]

[quote:74fdd6893c="Erwtensoep"]Jaah, als je met Johan over records begint wordt je gauw overtuigd om db's te nemen :P :wink:[/quote:74fdd6893c] Ken ik jou? :-?

[anoniem]

[quote:f3a82f9df7="Johan Stokking"][quote:f3a82f9df7="Erwtensoep"]Jaah, als je met Johan over records begint wordt je gauw overtuigd om db's te nemen :P :wink:[/quote:f3a82f9df7] Ken ik jou? :-?[/quote:f3a82f9df7]Heft je vast vol bewondedring, al jaren gevolgd, en je bent nu zeker zijn grootste obsessie/hobby :P ( hiervoor hadden we toch pb :roll: )