Typove subory v LAZARUS – Pascal – Fórum – Programujte.com

potreboval by som vyriesit deklaraciu typoveho suboru v LAZARUS-konzolova aplikacia

ma to spravene takto a stale to hadze chybu:
program project1;
uses crt;

type rovnica=record
zadanie:string;
vysledok:integer;
end;
var rov : rovnica;
i:integer;
f:file of rovnica;

#1 matesko
chjo...

Jakou chybu????

Syntakticky je to správně, nemůže to žádnou chybu házet...

Pokud je to kompletní kód tak je potřeba na konec ještě napsat "begin end."

Pak by to mělo jít kompilovat.

prikladam prtscrn celeho programu+vypis chyby

v dev-pascal mi to v pohode frci

Připojen obrázek.

Bože screenshot... to sem nemůžeš ten kód nakopírovat?!

Máš to v tý chybě celkem dost jasně napsané - typové soubory nesmí obsahovat ref-counted typy, v tvém případě je to typ string. Takže buď v tom recordu použij ShortString (délka omezená na 255 bytů) nebo to ukládej jinak.
A chybí ti na konci uvolnění prostředků - close(f).

V dev-pascal ti to "v pohode frci" protože dev-pascal nemá implicitně zapnuté long stringy, FPC ano.
Prostě, v dev-pascal String = ShortString, v FPC String = AnsiString (což je ref-counted typ).

#5 Matesko
Tak příště hoď název té chyby do google a přečti si to řešení sám...

Místo string použij shortstring. Lazarus má string vylepšenej přes ukazatele, takže už to není standardní typ jako v Pascalu a nelze ho ukládat do typového souboru.

EDIT: Tím FPC jsem myslel Lazarus, ne FPC samotný, sorry....

#8 Sniper

super dik za riesenia...

vobec som si neuvedomil, aka blba chyba

vyriesene