.


:




:

































 

 

 

 


.




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 "" ), . - , , . '. ', .

 





:


: 2017-02-25; !; : 319 |


:

:

- , - .
==> ...

1635 - | 1552 -


© 2015-2024 lektsii.org - -

: 0.022 .