Discussion :

[busy999]

J'ai écrit ce morceau de code :

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
 
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.



Est ce que quelqu'un vois d'ou le probleme peut venir ?

Merci d'avance

[J.M.]

Tu peux faire tout simplement:

Code :

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

1
2
3
4
5
6
7
8
9
begin
  SepString := '{||}';
  RFile := TFileStream.Create('C:\test.txt' , fmCreate);
  try
    RFile.Write(SepString[1], SizeOf(SepString));
  finally
    RFile.Free;
  end;
end;

[busy999]

Merci beaucoup, cette solution fait la même chose et pas de bug... que demander de plus