Delphi Statische Arrays mit type und Wertzuweisung?

Thema durchsuchen

Ansicht

Themen-Optionen

Statische Arrays mit type und Wertzuweisung?

Ein Thema von mirko2000 · begonnen am 3. Dez 2003 · letzter Beitrag vom 3. Dez 2003

Vorheriger Beitrag

Nächster Beitrag

jbg

Registriert seit: 12. Jun 2002
3.485 Beiträge

Delphi 10.1 Berlin Professional

Re: Statische Arrays mit type und Wertzuweisung?

3. Dez 2003, 09:29

Mit hilfe einer Funktion kannst du zumindest die Zeilenvektoren füllen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure SetLineVec(var Matrix: TMatrix; Row: Integer; const Values: array of Integer);

var i: Integer;

begin

  for i := 0 to High(Values) do

    Matrix[Row, i] := Values[i];

end;

SetLineVec(Matrix, 0, [2, 2, 2, 2, 2]);

SetLineVec(Matrix, 1, [2, 1, 1, 1, 2]);

SetLineVec(Matrix, 2, [2, 1, 0, 1, 2]);

SetLineVec(Matrix, 3, [2, 1, 0, 1, 2]);

SetLineVec(Matrix, 4, [2, 1, 1, 1, 2]);

SetLineVec(Matrix, 5, [2, 2, 2, 2, 2]);