Discussion :

[manel77]

bonjour tous le monde,

est-ce que vous pouvez m'indiquer quelle est l'erreur dans ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
x := 'ABP';
x.CopyTo(0,type1,0,Length(x));

le message d'erreur qui apparait est le suivant:

[DCC Erreur] Bmpp.pas(351): E2018 Type Record, Object ou Class requis

[ALWEBER]

quel est le type de ta variable X ?

[manel77]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
x:string ;

[ALWEBER]

Ce qui semble logique
Si tu utilise la methode CopyTo tu devrais plutôt avoir un objet de type IStream par exemple.

Donc quelle opération veux tu réaliser ?

[manel77]

voici la fonction dont laquelle jutilise CopyTo:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
function TBmp.DlBitmap2NC( iPanel:integer;  ucCommand:IntPtr;  lCommandSize:integer) :integer ;
    var
     x:string ;
     	type1: array[1..10] of char;
		begin
		numberOfByteToWrite := 0;
 
 
			if(iPanel = 3 ) then
			begin
				x := 'ABP';
				x.CopyTo(0,type1,0,Length(x));
				numberOfByteToWrite:=DB2NC(lpMem,iPanel*((fileSize) div 5),type1,ucCommand,lCommandSize);
				if(numberOfByteToWrite = 0) then
				begin
					result:=0;
        end  ;
      end
 
 
			else if(iPanel = 4 )  then
      begin
				x := 'FO';
				x.CopyTo(0,type1,0,Length(x));
				numberOfByteToWrite :=DB2NC(lpMem,0,type1,ucCommand,lCommandSize);
 
				if(numberOfByteToWrite = 0)then
 
					result:=0;
      end
			else
			begin
				numberOfByteToWrite := 0;
      end;
			result:=numberOfByteToWrite;
    end;

[ALWEBER]

La fonction StrPCopy ne serait-elle pas plus appropriée ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
x:string ;
type1: array[0..9] of char;
begin
x :='AAA';
StrPCopy(type1,x);

Attention ton tableau est-il 1..10 ou 0..9 ?