Mam ListView1 i trzy labele: pierwszy - podaje pojemność; drugi - wolne miejsce; trzeci - zajęte. W ListView wyświetlają się wszystkie dyski w kompie.
mam kod w OnClist Listview1:
procedure TForm1.ListView1Click(Sender: TObject);
var
litera: string;
numer_dysku: integer;
integer64, integer64_2: int64;
string1, string2: string;
zajete: integer;
begin
litera := ListView1.Selected.Caption[1];
if litera = 'A' then
numer_dysku := 1;
if litera = 'B' then
numer_dysku := 2;
// itd.
string1 := Format('%d',[DiskSize(numer_dysku)]);
integer64 := StrToInt64(string1);
label1.caption := FormatFloat('###" MB"', integer64 div 1048576);
string2 := Format('%d',[DiskFree(numer_dysku)]);
integer64_2 := StrToInt64(string2);
label2.caption := FormatFloat('###" MB"', integer64_2 div 1048576);
zajete := integer64_2 - integer64;
label3.caption := FormatFloat('###" MB"', zajete div 1048576);
end;
i prawie wszystko działa ok dal wszystkich dysków. Jednak dla dysku C zajęte miejsce podaje mi liczbę ujemną. Co robić?
P.S
wie ktoś może jak to if litera = 'A' then numer_dysku := 1 wsadzić w petlę?