Programalama > DELPHI

Etiketler: string, types

Ort. 0
Puan ver:
var s: ShortString;
s := 'Delphi Programming';
//S_Length := Ord(s[0]));
//which is the same as Length(s)

var ssmall: String[50];
ssmall := 'Short string, up to 50 characters';

var s: String;
s := 'The s string can be of any size...';

s[2]:='T';

var s1,s2: String;
s1 := 'first string';
s2 := s1;

var s : WideString;
    c : WideChar;
	
 s := 'Delphi_ Guide';
 s[8] := 'T';
 //s='Delphi_TGuide';	

procedure TForm1.Button1Click(Sender: TObject);
var
 Drive: Char;
 DriveLetter: String[4];
begin
 for Drive := 'A' to 'Z' do
 begin
  DriveLetter := Drive + ':\';
  case GetDriveType(PChar(Drive + ':\')) of
   DRIVE_REMOVABLE:
    Memo1.Lines.Add(DriveLetter + ' Floppy Drive');
   DRIVE_FIXED:
    Memo1.Lines.Add(DriveLetter + ' Fixed Drive');
   DRIVE_REMOTE:
    Memo1.Lines.Add(DriveLetter + ' Network Drive');
   DRIVE_CDROM:
    Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive');
   DRIVE_RAMDISK:
    Memo1.Lines.Add(DriveLetter + ' RAM Disk');
   end;
 end;
end;



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.