Einzelnen Beitrag anzeigen

DelTurbo

Registriert seit: 12. Dez 2009
Ort: Eifel
1.212 Beiträge
 
Delphi 2007 Architect
 
#18

AW: Dynamische Arrays (mal wieder)

  Alt 23. Nov 2013, 09:30
Also, das von DeddyH klappt soweit. Ich weiß leider nicht wie ich nun auf das Array zugreifen soll. So wie "früher" scheint es wohl nicht mehr zu gehen. Ich habe quellcode etwas gekürtz, da sonst die seite viel zu lange war und man die "richtigen/falschen" stellen suchen musste.

Ich habe das nun so gemacht:
Delphi-Quellcode:
interface

uses ........

type
  TMp3Data = record
    InUse :Boolean;
    Playing :Boolean;
   FName      :String;
   Artist      :String;
   Title      :String;
    Dauer    :Integer;
   BitRate      :Integer;
   end;

    Mp3Infos = array of TMp3Data;
   
    function GetFreeMP3DField(var ary: Mp3Infos):Integer; overload;
   
[snip]

implementation

[snip]
function GetFreeMP3DField(var ary: Mp3Infos):Integer; overload;
var
   i   :Integer;
begin
    if ary=nil then begin
      SetLength(ary,1);
    end else begin
     SetLength(ary,high(ary)+2);
   end;
    Result:=high(ary);
end;
[snip]

      for i:=low(Mp3Infos) to high(Mp3Infos) do begin // H2135 FOR oder WHILE Schleife wird nicht durchlaufen - gelöscht
         if ( Mp3Infos[i].InUse ) then begin          // E2029 '(' erwartet, aber '[' gefunden
[snip]
Vorher stand einfach Mp3Infos:Array of TMp3Data; unter var.

Nochmals danke im voraus für eure hilfe.
Alle meine Rechtschreibfehler sind Urheberrechtlich geschützt!!
  Mit Zitat antworten Zitat