Filesize – Delphi – Fórum – Programujte.com

Proč mi to ukazuje velikost souboru 3, když v souboru jsou textové data?

  if not fileexists(dir+'uc_heb.ini') then exit;
  try
    assignfile(f,dir+'uc_heb.ini');
    reset(f);
  except
    showmessage('Nelze otevrit soubor .ini s nastavenim.');
  end;
  size := filesize(f);
  if filesize(f)<10 then
     begin
     showmessage('Soubor .ini neobsahuje text. '+ inttostr(size) );
     exit;
     end;

#1 oxidián
mám pocit, že za reset se u binárního souboru musí dát velikost přenosového bloku

jinak je tam 128. Takže velikost tvého souboru je 128x3  bytů. asi ... :) možná

http://home.pf.jcu.cz/~edpo/program/kap09.html

A ten filesize určuje velikost souboru tím že čte data? Já bych od takové funkce očekával, že bude číst razítko.

Našel jsem toto:

Because text files are normally variable in length, the number of records is not so useful. Use the low level routine GetFileSize to get the size in bytes, or FindFirst, FindNext routines, which return size and last modified date values of one or more files.

Jenže návod k funkci GetFileSize jsem nenašel.

size := GetFileSize (f);

vrací chybu: nekompatibilní typy Cardinal a Text

#3 oxidián
to bude zas nějaká maličkost hod verzi

#2 Jerry
velikost přenosového bloku nemá s filesize nic společného

Víš, co dořešíme to spíš později, snad zítra; zatím jsem tam nechal velikost bloku <1. Dneska chci dělat menu, ukládání voleb do souboru a pak potřebuju pořešit jak uložit do paměti data načtené ze souboru. Menu Učebnice jsem přejmenoval na Testy. Pod každým jazykem budu asociovat složku v adresáři testy.

Např. langHebrew1 (tj. název menuItem načtený z textového souboru); biblická hebrejština (tj. název složky); pointer na objekt TMenuItem;

Takže tohle by měl být asi nějaký typ, např. TTest; A pak budu muset definovat pole o velikosti 13*size(TTest)...

Jo, akorád že nevím jak v delphi definovat takovou strukturu TTest...

#6 oxidián

normálně array [13] of TTest

jinak nevím jestli D7 už umí TIniFile, to umí strukturovat

[sekce]
key=hodnota
key2=hodnota2

[sekce2]
key=hodnota
keyX=hodnota

na ukládání nastavení ideální

A jak deklarovat tu strukturu TTest? Tohle je seznam těch menu Item:

langHebrew1
langGreek1
langLatin1
langKJEnglish1
langAncient1
modernOther1
modernHebrew1
modernGreek1
modernEnglish1
modernGerman1
modernFrench1
modernSpanish1

a pak je k tomu ještě odpovídající

SelectlangHebrew1
SelectlangGreek1
SelectlangLatin1
SelectlangKJEnglish1
SelectlangAncient1
SelectmodernOther1
SelectmodernHebrew1
SelectmodernGreek1
SelectmodernEnglish1
SelectmodernGerman1
SelectmodernFrench1
SelectmodernSpanish1

což je submenu ke každé MenuItem...

Už jsem něco našel.

Mám to takhle, ale je to tak OK? Když pointer nijak nedeklaruje typ něco jako Pointer of TMenuItem; bych očekvával...

type
   TCustomer = record
     menuItemStr : string[16];
     selectSubmenuStr  : string[22];
     menuPtr : Pointer;
     selectMenusubmenuPtr : Pointer;
   end;

Nebo spíš takto:

type PMenuItem = ^TMenuItem;
type
   TCustomer = record
     menuItemStr : string[16];
     selectSubmenuStr  : string[22];
     menuPtr : PMenuItem;
     selectMenusubmenuPtr : PMenuItem;
   end;

Ono je to podobné jak v C jenže s C jsem už dlouho nedělal, takže se mi to vykouřilo z hlavy.

Aktuálně:

type PMenuItem = ^TMenuItem;
type
   TSubmenuItems = record
     name: string[16]; // název menu, slouží pro identifikaci záznamů v souboru ini
     folder  : string[22];
     language: string[40]; // language to learn
     menuPtr : PMenuItem;
     selectMenusubmenuPtr : PMenuItem;
     foldersFound: boolean;
   end;

implementation

const maxTestFolders = 13;
var     submenuItems: array[0..maxTestFolders] of TSubmenuItems;

procedure TForm1.FormCreate(Sender: TObject);
begin
submenuItems[0].name := 'test';
...

#9 oxidián
taková drobnost, to menu by se dalo asociovat na názvy subadresářů a souborů

Struktura dir třeba:

Program path
         \Testy
               \lang
                    \Hebrew1
                    \Greek1

                       ....

      
               \modern
                    \Hebrew1
                    \Greek1

                       ....

neními jasné co chceš řešit těma pointerama na menuItems. už jsi to jednou zkoušel a něšlo to, opakuješ chyby.

#10 oxidián
nechápu co tam maj dělat ty pointery, podle mě sjou zbytečný, nemůžeš ukládat pointery do souboru a pak je načíst a použít, program ty data může mít pokaždé jinde a musíš pro ně alokovat paměť, navíc dynamicky itemysubmenu už jsme řešily můsí se přidávat přes ADD

ad#11 - tak nějak to chci, ale nechci dělat moc hluboké zakořenění. V menu vybereš nejdříve jazyk, resp. skupinu. Pak klikneš na vybrat (vnořené menu), vybereš složku, pak se projde složka a každý adresář se vypíše do menu... Tam mají být autoři testů... Dále tam mají být okruhy testů, takže do menu Okruhy se vypíšeou položky menu vnořených adresářů. Vybereš si okruh, a pak z této složky se budou dělat testy.

Dneska mám dost, takže zítra musím udělat přiřazení těch submenu...

No pointery nemůžu uložit do souboru. Během načítání se vytvoří menu položky a pak ty pointery budou ukazovat na ty menu položky.

#1 oxidián
A co si takhle přečíst nápovědu, kde je jasně napsáno, že FileSize nefunguje pro textové soubory?

FileSize je velikost typového souboru v položkách, textový soubor nemá položky...

Viz například zde: https://www.trsek.com/pascal/FileSize

#14 JoDiK
Tak jste četl jinou nápovědu než já a tam je to napsáno jinak.

Aktuální problém - během procházení adresáře dostávám hlášku:

Incompatible types: Cardinal and TSearchRec

var SearchRecord : TSearchRec;
    FilesTmpI : integer;
begin
FilesTmpI := FindFirst('c:\files\data\*', faDirectory, SearchRecord);
while FilesTmpI = 0 do
      begin
        ListBox1.Items.Add(SearchRecord.Name);
        FilesTmpI := FindNext(SearchRecord);
      end;
FindClose(SearchRecord);
end;

Chyba na řádku kde je FindClose.
 

A ještě dotaz: jde v D7 nějak elegantně zarovnávat kód? Podobně jako ve Wordu nebo jinde, že na označený kód zmáčknu tab nebo shift+tab, ale tyto zkratky na to v D7 nefungují. Dělám to manuálně a je to pracné.

Co se týče nápovědy. U C++ Builderu a Delphi už za Borlandu byl bordel v dokumentaci. Embarcadero to trochu spravilo, ale i tak tento nedostatek přetrvává. Jestli něco vyčetl přímo z dokumentace Delphi, tak měl za to, že je to pravda a neměl důvod to hledat jinde.

hu

#16 oxidián
netestuješ náhodou prázdnej adresář? to by se ti nejspíš Searchrec nevytvořil, lepší použít tuhle konstrukci z manuálu:

http://www.delphibasics.co.uk/RTL.asp?Name=tsearchrec

když se na to podíváš všimneš si, že findclose je uvnitř podmínky findfirst(..)=0

Je tam jeden adresář.

Aha, takže ten výsledek Integer slouží ke kontrole cyklu... Dobrý už to chápu.

Ale stále to nejede.

list := TStringList.create();
for i:=0 to maxTestFolders-1 do
  begin;
    if submenuItems[i].foldersFound=false then
      break;
    list.clear;
    if FindFirst(testyDir, faDirectory, SearchRecord) = 0 then
      begin
        repeat list.add(SearchRecord.Name);
        until FindNext(SearchRecord)<>0;
        FindClose(SearchRecord);
      end;

stejná chyba. To ani nezkompiluje takže jestli je adresář prázdný nehraje roli.

Máš blbě řazený jednotky v uses. Volá se FindClose z jednotky Windows místo ze SysUtils, a ta očekává handle, což je v D7 cardinal.

Takže buď si oprav pořadí (SysUtils musí být ZA Windows, http://www.delphibasics.co.uk/RTL.asp?Name=Uses), nebo to uprav na SysUtils.FindClose(...).

Tak na to bych sám nepřišel. Dík

To nejsi sám   

Když jsem začínal, tak mi precedence unit taky pěkně zatápěla. Od tý doby jde jednotka Windows vždycky na úplnej začátek, a je klid.

#15 oxidián
Můžeš prosím ukázat (odchytit obrazovku, dát odkaz) ve které nápovědě jsi to viděl jinak? Fakt mě to zajímá, díky...