Typovy subor --- record--- pomooc – Delphi – Fórum – Programujte.com

Mam taky problem... robim projekt v delphi na maturitu... no a potrebujem vytvorit subor do ktoreho bude moct zapisovat aj string aj integer... ale musi to byt binarny subor...
type
pass = record
a : string[20];
b : integer;
end;
Souborpass = file of pass;

var
Soubor : souborpass;

ale nechceme mi fungovat ked dam zapisat napriklad

assignFile(Soubor, 'pokus.dat');
Rewrite(Soubor);
Write(Soubor, 'test');
CloseFile(Soubor);

Cim to moze byt?? a je tu niekto s kym by som to mohol konzultovat?

Zdravím,

deklaroval sis typ souboru obsahující ZÁZNAMY a snažíš se do něj uložit samostatný řetězec. Takže řešením je ukládat pouze záznamy a nic jiného, to znamená, že si budeš muset nadeklarovat porměnnou typu pass a tu následně uložit.

procedure WritePass(f: souborpass; zaznam: pass);

begin

    write(f, pass);

end;



procedure Demo(const FileName: string);

var zaz: pass;

     f: souborpass;

begin

    AssignFile(f, FileName);

    Rewrite(f);

    zaz.a :='lalalala';

    zaz.b := 1232;

    WritePass(f, zaz);

    CloseFile(f);

end;

Oprava:
místo:

procedure WritePass(f: souborpass; zaznam: pass); 

begin 

    write(f, pass); 

end;

procedure WritePass(f: souborpass; zaznam: pass); 

begin 

    write(f, zaznam); 

end;

vyskusam... diky moc... a nemas nahodou ICQ? lebo niekedy by som potreboval poradit ohladne delphi...