Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
AW: Dynamische Arrays (mal wieder)
22. Nov 2013, 17:37
Delphi-Quellcode:
type
TMp3Data = record
InUse :Boolean;
Playing :Boolean;
FName :String;
Artist :String;
Title :String;
Dauer :Integer;
BitRate :Integer;
end;
TTestArray = array of TMp3Data;
function AllocateNextFreeField(var Arr: TTestArray): integer;
begin
SetLength(Arr, Length(Arr) + 1);
Result := High(Arr);
end;
Klappt einwandfrei unter Delphi 7.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|