daten aus einem array in eine txt datei auslagern

[Stefan_w]

hi leute,
bräuchte mal nen bissel hilfe. und zwar programmieren wir in der schule delhpi (also auf keinem hohen niveau). jetzt hätte ich nen kleines problem: hab irgendwo in nem programm noch nen kleinen fehler und würde mir gerne den verlauf von verschiedenen variablen anschauen. also was da wann drin stand. dazu wollte ich nach jeder aktion das variablen ergebnis in nen array speichern. dieses array würde ich mir jetzt gerne in ne text datei auslagern. wie funktioniert das wenn ich von delphi in ne txt datei speichern will? ich weiß, dass das bestimmt auch irgendwie einfacher geht mit den variablen verfolgen möchte das andere aber trotzdem wissen.

danke schonmal für die antwort

stefan

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

[Luckie]

Man kann es auch einfach über eine StringListe mache.

[sniper_w]

Zitat:

Man kann es auch einfach über eine StringListe mache.

Ja aber ich vermute hier wird das nicht der Fall sein.

[Stefan_w]

Hi.
Danke für die Antwort. allerdings gab es folgendes problem als ich das übernommen habe zeigte er mir diese fehlermeldung:

Inkompatible Typen

bei dem ausdruck:

SetLength(MyArray,0);
SetLength(MyArray,100);

an. Würd mich über noch ne hilfe freuen.

schon mal danke und gruß stefan

[sniper_w]

Warscheinlich hast du eine ältere Version von Delphi. Dann versuch es so:

Delphi-Quellcode:

var
  Form1: TForm1;
  myArray : array of[0..99] Integer;// von 0 bis 99, 100 insgesamt

//...
procedure WriteArray(FileName : string;MyArray : array of[0..99] Integer);
//....
// SetLength(MyArray,100); das kannst du jetzt weglassen
// SetLength(MyArray,0); das kannst du jetzt weglassen