9.1.5. - ' .
9.1.6. .
9.1.7. .
9.1.8. - ' .
9.1.10. .
9.1.11. .
˳
1
9. .
, , . . . , ( ), 0 , 1 , .
Delphi 8- , 8 (ASCII - American Standard Code for InformationInterchange , 0-255 ). - Windows. . , , UNICODE (16- , 65536 ). 8 ANSI, . Windows 2000, .
. 1.1. UNICODe BMP-Basic Multilingual Plane (Plane 0)
Delphi :
' | |||
AnsiChar | 1 | ANSI | |
WideChar | 2 | UNICODE | |
Char | 1 | ||
ShortString | 255 | ³ 2 256 | |
AnsiString | 231 | ³ 4 2 | 8 |
WideString | 230 | ³ 4 2 | UNICODE |
( Pointer, Pchar, Text)
ShortString ( ) . , . . , , , , 255 .
n ;
p .
var
Smax2: ShortString;
ShortString , AnsiString . , AnsiString , , . . , , 8 :
|
|
AnsiString 4- , . , , nil.
.
var
LongStr1, LongStr2: AnsiString;
// ϳ
// AnsiString nil
begin
LongStr1:= .......... ;
// ϳ AnsiString
//
.
AnsiString , , , . AnsiString , , .
LongStr2:= LongStr1;
, :
4- , AnsiString , ShortString, .
, .
LongStr3:= LongStr1;
3. , LongStr1, , .......... ; , , LongStr1 . , . , .
ANSI
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
st:string; //
dec: byte; //
i,j:integer; //
begin
st:='';
dec:=0;
for i:=0 to 15 do //
begin
dec:=i + 192;
for j:=1 to 4 do //
begin
st:=st+chr(dec)+'-'+IntToStr(dec)+' ';
dec:=dec + 16;
end;
st:=st + #13; //
end;
Label1.caption:=st;
end;
|
|
end.
9.1. ' .
' , , . , . , , "" ', (CNOBOL, REXX), '.
9.1.1. в.
, , , '. , - .
. ' , . , , , , ( ) .
. 1. , : 'ABCD' 'PQRSTUVW' .
. 1.
9.1.2. в ̲ί ʲ.
. - , ( , ), , . ' 1 . . 2. - 'eos'. C, , 0.
. 2.
9.1.3. в ̲ί ˲.
˳ - , , , . 8 16 . ' 1-2 . , , . ˳ , - . , , . PASCAL, , , 0; . . 3. , .
. 3.
' (1-2 "" ), . - , , . '. ', .
|
|