Erstellen einer Tabelle mit Sinus- und Cosinus Werten

[Wolfgang Mix]

Müsste wohl heissen (ungeprüft):

Delphi-Quellcode:

for i := 0 to 900 do
begin
  SinusTabelle[i] := DegToRad(Sin( 0.1*i));
  CosinusTabelle[i] := DegToRad(Cos( 0.1*i ));
end;

[hamptoncourt]

Ja, soweit hab ich das mit der Berechnung auch ... aber er soll es ja als externe Datei speichern ... z.B. als test.dat .... Wenn ich aber SafeArray benutze, sagt er mir, dass er die nicht kennt. Muss ich dann erst als Variable "SafeArray : TSafeArray" Festlegen??? Aber als was leg ich dann den Typ TSafeArray fest??? Oder mache ich das grad total falsch ... ??? Ich bin verwirrt *lol*


type
TSinCosTabelle = array[0..900] of double;
TArrayData = array of string[20];
var
ArrayData: TArrayData;
SinusTabelle : TSinCosTabelle;
CosinusTabelle : TSinCosTabelle;
i : Integer;

for i := 0 to 900 do
begin
SinusTabelle[i] := DegToRad(Sin( 0.1 * i));
CosinusTabelle[i] := DegToRad(Cos( 0.1 * i ));
end;

SaveArray(ExtractFilePath(Application.ExeName) + 'test.dat', ArrayData);
end;

[DeddyH]

Du könntest das Array z.B. in einer typisierten Datei speichern (file of Datentyp). BTW: Crossposts bitte künftig verlinken.

[hamptoncourt]

typisierte Datei??? Verstehe grad nicht, wie das funktioniert??? Kann mir vielleicht jemand nen Quellcode dazu schicken, wie das bei mir aussehen müsste???

[DeddyH]

Tutorial zu typisierten Dateien

[bjd]

Du solltest dir auf DT auch das Tutorial zu Funktionen durchlesen. In dem von dir angesprochenen Tipp steht ziemlich klar, dass SaveArray eine Procedure ist, die du zuerst definieren musst. Wenn du das so machst, ist fast schon die ganze Arbeit getan, du musst nur noch deinen Array-Typ angeben.

[hamptoncourt]

Hey ... stimmt. Habe ich auch im Tutorium jetzt gesehen, dass es eine Prozedur ist ...

Aber nochmal zu dem Tipp mit dem typisierten Dateiformat ... Das scheint ja so ganz übersichtlich zu haben. Das Tutorial ist echt gut verständlich ... Aber eine Frage hab ich doch noch ...

Wenn ich das mache z.B. mit

for i := 0 to 900 do write .....

wie schreibe ich das denn dann, wenn zwei Daten gesetzt werden sollen??? Schreibe ich beide Daten hintereinander in der einen Klammer, oder gebe ich zwei Anweisungen "for ... do write" in dem Quelltext ein???