Utilisation de CopyTo

Version imprimable

26/07/2007, 08h46
manel77

Utilisation de CopyTo
bonjour tous le monde,

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

1 2 3 x := 'ABP'; x.CopyTo(0,type1,0,Length(x));
le message d'erreur qui apparait est le suivant:

Citation:

[DCC Erreur] Bmpp.pas(351): E2018 Type Record, Object ou Class requis
26/07/2007, 12h10
ALWEBER

quel est le type de ta variable X ?
26/07/2007, 13h12
manel77
Code:

1 2 x:string ;
26/07/2007, 15h22
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 ?

voici la fonction dont laquelle jutilise CopyTo:

Code:

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;

27/07/2007, 11h47
ALWEBER
La fonction StrPCopy ne serait-elle pas plus appropriée ,
Code:

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 ?