Velikost souboru – Delphi – Fórum – Programujte.com

Chtěl bych si vytvořit kalkulačku na přepočítávání velikosti souboru.
V programu klepnu na " Otevřít soubor " a v Editu by se mi zobrazila velikost toho souboru v MB a ve druhém přípona souboru.
Např. :- 364 MB - - avi -
Potřebuji poradit jak to udělat.
Stačí mi to rozepsat, nečekám na zdrojový kód .
Děkuji.

otevres soubor jako binarni .... file of char ...
hodis filesize .. . ale mozna pred tim bude chtit jeste reset...
a priponu si odsekni od nazvu souboru

Ehm, děkuji, ale nepochopil jsem nic. Takto to nějak vypadá. Zatím si vypočítávám koeficienty a není jich málo. Pro fungování kalkulačky jich potřebuji 224. Prosím jak co kam mám zadat.
TForm1 = class(TForm)
ComboBox2: TComboBox; // rozbalovací seznam pro výběr Kvality videa 4 položky
Edit1: TEdit; // tady bude výsledek
Bevel1: TBevel;
BitBtn1: TBitBtn; // tady je tlačítko pro výpočet Spočítat
BitBtn2: TBitBtn; // tady je tlačítko Ukončit
Image1: TImage;
Image2: TImage;
ComboBox1: TComboBox; // rozbalovací seznam Velikost formátu 8 položek
StaticText1: TStaticText;
StaticText2: TStaticText;
BitBtn3: TBitBtn; // tlačítko pro Vstupní video
Edit2: TEdit; // pole kde se zobrazí velikost videa MB
Edit3: TEdit; // pole kde se zobrazí formát videa avi,mpeg,mpeg2,flv...

procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
// sem vložím koeficienty pro výpočet celkem 7typů formátu*4 druhy kvality*8 velikostí formátu
// např. 320x240*Vysoká kvalita*vstupní formát avi = velikost avi*koeficient
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var fi: file of char;
begin
assign(fi, 'soubor.avi'); (* tady samo spravnej soubor *)
reset(fi);
Edit1.text := inttostr(filesize(fi));
close(fi);
end;

Asi jsem totální magor a nejde mi to! Vůbec nevím jak zapsat kód !
TComboBox1=text(96 x 64,128 x 96,160 x 128,128 x 128,176 x 144,160 x 112,208 x 176,320 x 240)
TComboBox2=text(Vysoká kvalita,Normální kvalita,Střední kvalita,Nízká kvalita)
//Předělal jsem vyhledání souboru na výběr ze seznamu//
TComboBox3=text(avi,wmv,mpeg,mpeg1,mpeg2,flv,mp4)
TEdit2=text(zadá se číslo,které se zobrazí při najetí myši na soubor)
TEdit1= text(zobrazí se výsledek) po stisknutí tlačítka "Spočítat"
" když zvolím položku TComboBox1(96 x 64) + TComboBox2(Vysoká kvalita) + TComboBox3(avi) + vepíšu ručně TEdit2, tak se mi spočítá (96X64)*(Vysoká kvalita)*(avi)= koeficient (1,64*TEdit2).
nebo (320x240)*(Nízká kvalita)*(mp4)= koeficient (2,33*TEdit2).
Prosím o trpělivost. Já se to určitě naučím.

neni to jednodussi editovat pomoci toho ide? neco jako dvojklik na to combo nebo nejakej z parametru ma rozsireni ...

Asi si nerozumíme a tak jsem to nahrál na web.
http://cid-c92b10301d7766f6.skydrive.live.com/self.aspx/MTV%20Kalkula%c4%8dka/MTV%20Kalkula%c4%8dka.zip
Podívejte se na to prosím a zdělte mi případné zjednodušení. Přiložil jsem k tomu i tabulku s některými koeficienty.
Děkuji

Hotovo a vyřešeno děkuji všem !