![]() |
Delphi-Version: 2007
Dynamische Arrays (mal wieder)
Hi,
ich arbeite mit Dynamischen Arrays. Um einen neuen "Slot" zu bekommen habe ich eine Funktion. Nun habe ich aber mehrer Dynamische Arrays. Leider alles verschieden Typen. Mal Integer, mal Strings, mal Records. Ich dachte nun daran GetNextFreeField das Array zu übergeben. Aber man muss ja einen Typ angeben. z.b. GetNextFreeField(var ar:Array of Strings):Integer; Damit kann ich ja dann wieder kein anderes Array vergrössern. Nun zu miener Frage. Geht das überhaupt, das man z.b. nur GetNextFreeField(var ar:Array):Integer; irgendwie angeben kann? Also quasi ohne Typ. Vielen dank im voraus
Delphi-Quellcode:
function GetNextFreeField:Integer;
var i :Integer; begin if KData=nil then begin SetLength(KData,1); end else begin SetLength(KData,high(KData)+2); end; Result:=high(KData); end; |
AW: Dynamische Arrays (mal wieder)
Es gibt noch array of const, aber ob das damit so funktioniert :gruebel:.
|
AW: Dynamische Arrays (mal wieder)
Richt nach Generics
|
AW: Dynamische Arrays (mal wieder)
Das war auch mein erster Gedanke, allerdings steht im Profil Delphi 2007.
|
AW: Dynamische Arrays (mal wieder)
Zitat:
Delphi-Quellcode:
und generell
array of const
Delphi-Quellcode:
bei Prozedurparametern sind nicht dasselbe wie „normale“ dynamische Arrays. Ich meine, die wären deshalb auch Read-Only und das interne Format ist glaube ich auch irgendwie anders als bei dynamischen Arrays (welche, wenn ich mich nicht irre, auch ein neueres Konstrukt sind als die array-Parameter).
array of irgendwas
Was z.B. auch nicht geht:
Delphi-Quellcode:
Die einzige Möglichkeit ist, elementweise umzukopieren.
function Foo(A: Array of Integer): Array of Integer;
begin Result := A; end; Bis vor ein paar Jahren dachte ich (ich glaube die Information hatte ich aus aus meinem ersten Delphi-Buch?), dass das einfach daran läge, dass der Compiler nicht „weiß“, dass die beiden Array-Deklarationen äquivalent sind und das der Grund wäre, weshalb man bei so etwas immer einen extra Typen deklarieren muss. Aber ich hatte mir irgendwie mal den Assembler-Code angesehen und in der System.pas gewühlt und es war völlig anders... was wohl daran liegt, dass
Delphi-Quellcode:
bei Parametern immer noch die alte Compiler-Magic (wie sie von Format() und Co. verwendet wird) ist, während die gleiche Notation beim Result für die „neuen“ dynamischen Arrays (ab Delphi 4) steht. Die beiden sind nicht kompatibel.
array of irgendwas
Das aber nur am Rande. Generics wären wohl das beste, oder du musst für jeden Typen die Prozedur überladen:
Delphi-Quellcode:
(Nebenbei, den Code kannst du abkürzen, wie du hier siehst)
function AllocateNextFreeField(A: TIntArray): Integer; overload;
begin SetLength(A, Length(A)+1); Result := high(A); end; function AllocateNextFreeField(A: TFloatArray): Integer; overload; begin SetLength(A, Length(A)+1); Result := high(A); end; ̀function AllocateNextFreeField(A: TStringArray): Integer; overload; begin SetLength(A, Length(A)+1); Result := high(A); end; ... |
AW: Dynamische Arrays (mal wieder)
Jupp, "dynamische", bzw. noch nicht definierte Typen mit den Generics,
oder eben als überladene Methoden, aber sonst wird das eher eine Bastelstunde.
Delphi-Quellcode:
und dann intern über die RTTI rummurksen.
function AllocateNextFreeField(const TheArray): Integer;
Dann wäre das über die Generics einfacher, da dieses sich dann um die RTTI kümmert.
Delphi-Quellcode:
oder
function TMyClass.Foo<T>(const A: TArray<T>): Integer;
Delphi-Quellcode:
function TMyClass<T>.Foo(const A: TArray<T>): Integer;
|
AW: Dynamische Arrays (mal wieder)
Erstmal vielen dank an alle. Ich verusche das umzusetzen und werde bericht, wie immer.
|
AW: Dynamische Arrays (mal wieder)
Zitat:
|
AW: Dynamische Arrays (mal wieder)
Zitat:
Genauso, wie bei den überladenen Methoden. Wenn man das in einer Methode macht und dann erst in der Prozedur den Typ prüft, dann bekommt man auch erst zur Laufzeit mit (hoffentlich schnell), wenn etwas nicht stimmt. |
AW: Dynamische Arrays (mal wieder)
Zitat:
Delphi-Quellcode:
function allocatenextfreefield(a: array of Tintarray): Integer; overload;
Ich versuche es mit folgendem Typ. type TMp3Data = record InUse :Boolean; Playing :Boolean; FName :String; Artist :String; Title :String; Dauer :Integer; BitRate :Integer; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz