daten aus einem array in eine txt datei auslagern

[sniper_w]

Array ist ein Typ von ???
Ich nehme mal Integer an.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  myArray : array of Integer;

implementation

{$R *.dfm}

procedure WriteArray(FileName : string;MyArray : array of Integer);
 var a:integer;
     f : Text;
begin
 AssignFile(f,FileName);
 Rewrite(f);
 for a:=0 to Length(MyArray)-1 do
 begin
  Writeln( f, IntToStr(a+1)+'.  ='+IntToStr(MyArray[a]));
 end;
 CloseFile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
 var a:integer;
begin
 SetLength(MyArray,100);
 Randomize;
 for a:=0 to Length(MyArray)-1 do MyArray[a] := Random(10000);
 WriteArray('C:\MyFile.txt',MyArray);
 SetLength(MyArray,0);
end;

end.