TFileStream et Array of char
J'ai écrit ce morceau de code :
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
|
procedure MakeRegistrationFile();
var
RFile : TFileStream;
Buff : array of char;
SepString : string;
SepBuff : array of char;
begin
SepString := '{||}';
SetLength(SepBuff, length(SepString) + 1);
StrPCopy(@Sepbuff, SepString);
RFile := TFileStream.Create('C:\test.txt' , fmCreate);
try
RFile.Write(SepBuff, SizeOf(SepBuff));
finally
RFile.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MakeRegistrationFile();
end; |
en mode pas à pas :
toute la fonction semble se passer sans probleme et le débugger me signale une erreur en surlignant l'appel de la fonction une fois que toute la fonction est passée.
http://busy999.free.fr/saveplace/capture014.png
Est ce que quelqu'un vois d'ou le probleme peut venir ?
Merci d'avance ;)
