Forum: Object-Pascal / Delphi-Language
Delphi
by arbu man,
7. Jul 2006
Hab das ganze so veränder das der array als var übergeben wird: procedure FunktionenLesen(FileName: String; var f :TFunktionenArray);
var
Datei: TFunktionenDatei;
i, count: integer;
begin
AssignFile(Datei, FileName); // Datei zuweisen
Reset(Datei); // Datei öffnen
count:= FileSize(Datei) div sizeof(TFunktion);
setlength(f, count);
for i:=0 to count -1...
Forum: Object-Pascal / Delphi-Language
Delphi
by arbu man,
7. Jul 2006
Okay also hier sind sie:
type
TFunktion = packed record
Name: String;
_Unit: String;
Deklaration: String;
Params: array of TParameter;
Beschreibung: LongString;
Beispiel: LongString;
Forum: Object-Pascal / Delphi-Language
Delphi
by arbu man,
7. Jul 2006
Hi,
Ich lese mit folgenden code eine typorisierte Datei aus:
// TFunktionenArray: array of TFunktion
// TFunktion: record
// TFunktionenDatei = File of TFunktion;
function FunktionenLesen(FileName: String): TFunktionenArray;
var
Datei: TFunktionenDatei;