1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
unit Unidoce_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Genereic_Array;
type
TFormTestUnicode = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
{ Déclarations publiques }
end;
procedure WriteLn( aInt : integer ) ; overload;
procedure WriteLn( aStr : string ) ; overload;
procedure WriteLn( aObj : TObject ) ; overload;
var
FormTestUnicode: TFormTestUnicode;
implementation
{$R *.dfm}
procedure TFormTestUnicode.Button1Click(Sender: TObject);
begin
writeln( Edit1.Text ) ;
end;
procedure TFormTestUnicode.Button2Click(Sender: TObject);
var aArrayInteger : IArray<integer> ;
aArrayString : IArray<string> ;
aArrayObject : IArray<TObject> ;
begin
aArrayInteger := Gen_Array<integer>.Create ;
aArrayString := Gen_Array<string>.Create ;
aArrayObject := Gen_Array<TObject>.Create ;
aArrayInteger.push_back( 1 ) ;
aArrayInteger.push_back( 2 ) ;
aArrayInteger.push_back( 3 ) ;
aArrayString.push_back( Sender.ClassName ) ;
aArrayString.push_back( ' toto' ) ;
aArrayObject.push_back( Sender ) ;
aArrayObject.push_back( Edit1 ) ;
Gen_Algorithme<integer>.foreach( aArrayInteger, WriteLn ) ;
Gen_Algorithme<string>.foreach( aArrayString, WriteLn ) ;
Gen_Algorithme<TObject>.foreach( aArrayObject, writeln ) ;
writeln( 'Anonyme Test :' ) ;
Gen_AlgorithmeAnonyme<integer>.foreach( aArrayInteger, procedure ( aInt : integer )
begin
writeln( IntToStr( aInt ) ) ;
end ) ;
Gen_AlgorithmeAnonyme<string>.foreach( aArrayString, procedure ( aStr : string )
begin
system.Writeln( aStr ) ;
end ) ;
Gen_AlgorithmeAnonyme<TObject>.foreach( aArrayObject, procedure ( aObj : TObject )
begin
writeln( aObj.ClassName ) ;
end ) ;
end;
procedure TFormTestUnicode.FormCreate(Sender: TObject);
begin
AllocConsole ;
Edit1.Text := #$904D ;
Caption := Caption + ' ' + #$904D + #$5208 ;
end;
procedure WriteLn( aInt : integer ) ; overload;
begin
writeln( IntToStr( aInt ) ) ;
end;
procedure WriteLn( aStr : string ) ; overload;
begin
system.Writeln( aStr ) ;
end;
procedure WriteLn( aObj : TObject ) ; overload;
begin
writeln( aObj.ClassName ) ;
end;
end. |
Répondre avec citation
Envoyé par Reisubar
), les mêmes questions se posaient alors pour le passage des ShortString en chaînes longues....
A la Recherche du Parfait il faut faire et refaire
Partager