Ошибка

[Глеб1991]

Добрый день!

Прошу помочь в моей проблеме. В этот эдит, расчитанный на один элемент, пользователь вводит символ по правилу маски. После этого делфа должна провести сравнение этого символа со всеми логическими дисками на компе. Если такой диск найден то показать его полный размер в лейбале, если нет то написать в лейбале - нет диска.

Я почти все сделал, но дельфа выдает ошибку
[Error] Unit4CozdanieFleshki.pas(150): Incompatible types: 'Char' and 'PAnsiChar'

Поэтому я прошу помочь в решении данной ошибки. Просьба не надо мне говорить умные фразы, а только подкорректировать код.

 procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
  const
   mask : set of char =['A'..'Z', 'a'..'z'];
  var
   FreeBytesAvailableToCaller: TLargeInteger;
   FreeSize: TLargeInteger;
   TotalSize: TLargeInteger;
  begin
   if Edit1.Text = 'Ââåäèòå èìÿ íîâîãî íîñèòåëÿ' then edit1.Text:='';
   if(Key in mask) then begin
   Edit1.Text:=UpperCase(Key);
  end;
  Key:=#0;

  begin
   GetDiskFreeSpaceEx((edit1.text [1]), FreeBytesAvailableToCaller, Totalsize, @FreeSize);
   label1.Caption(IntToStr(Totalsize));
  end;
 end;

[s-andriano]

Трудно что-то советовать, не зная, для чего Вы применяете те или иные конструкции языка, а также в какой строке ошибка.
Предполагаю:

   Edit1.Text:=UpperCase(@Key);

[Глеб1991]

GetDiskFreeSpaceEx((edit1.text [1]), FreeBytesAvailableToCaller, Totalsize, @FreeSize);

в этой строке а именно (edit1.text [1]) ему не нравиться что я пишу паскалевскую строку, а он работает в СИ. Вот я и не знаю, как из паскаль в си перевести - но эта моя версия

[GunSmoker]

http://www.transl-gunsmoker.ru/2009/...rs.html#mixing

[Глеб1991]

procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 Nop, DiskSize: int64;
begin
 if (Key in ['A'..'Z', 'a'..'z']) and
    GetDiskFreeSpaceEx(PAnsiChar(Key + ':\'), Nop, DiskSize, nil) then
 begin
   Edit1.Text := AnsiUpperCase(Key);
   label1.Caption := IntToStr(((DiskSize div 1024)div 1024) div 1000)+ 'ГБ';
   //label1
 end
 else begin
   Edit1.Text := '';
   label1.Caption := 'Диск не найден';
 end;
 Key := #0;
end;

Спасибо за ссылку, посмотрю обязательно, что там. Проблема решена.

[s-andriano]

   label1.Caption := IntToStr(((DiskSize div 1024)div 1024) div 1000)+ 'ГБ';

А Вы работаете с двоичными единицами или с десятичными?