All pastes #270792 Raw Edit

Unnamed

public text v1 · immutable
·published 2006-12-07 18:37 UTC
rendered paste body
             
  TContent = Record
                  Level : Integer;
                  Question,
                  Answer : AnsiString;
                  end;

Somearray: array[0..39] of TContent;

procedure Dosomething(withArray: array of TContent);
var i: Integer;
begin
for i:=0 to High(withArray) do withArray[i].Question:='';
end;