AmineTheGreat
Messages postés
47
Date d'inscription
mercredi 13 juin 2007
Statut
Membre
Dernière intervention
28 décembre 2010
13 juin 2007 à 16:38
je ne comprends pas, il arrive une chose bizzard: Quand j'excécute le programme et je clique sur le boutton, le fichier est créé et les données sont envoyées vers le fichier. mais quand je clique sur le boutton une deuxieme fois il disparrait...
voici le code de tout le programme:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:file;
nom_rep:string;
const MyFile:string='C:\aaa\conv.wav';
CONST HEADER:ARRAY[0..43]OF BYTE=(
$52,$49,$46,$46, $00,$00,$00,$00, $57,$41,$56,$45, $66,$6D,$74,$20,
$10,$00,$00,$00, $01,$00,$01,$00, $44,$AC,$00,$00, $88,$58,$01,$00,
$02,$00,$10,$00, $64,$61,$74,$61, $00,$00,$00,$00);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer; stream:Tstream;
begin
If not FileExists(MyFile) then Stream := TFileStream.Create(MyFile, fmcreate);
for i:=1 to 100 do
Stream.Write(i,SizeOf(i));
Stream.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
end.
"Si tu veux du miel, résiste au piqure des abeilles"