Hallo allerseits^^
ich hab die
Unit jetzt überarbeitet(die globalen Variablen sind jedoch noch vorhanden, möchte erstmal das alles funktioniert^^'),
aktuelles Ergebnis sieht so aus, das er die Arrays mit Daten bestückt, die Länge ist nun wie erwünscht "365", jedoch sind alle Werte = 0 also default.
Delphi-Quellcode:
unit ULoad2;
interface
uses SysUtils,StdCtrls, ExtCtrls,FileCtrl, Classes, Graphics, Controls, Forms,IniFiles, Dialogs;
type tladen=
array[1..365]
of Integer;
tladend=
array[1..365]
of TDate;
function GetApplicationDirectory:
string;
procedure loadfileb(n:
string);
var
helpb:tladen;
helpd:tladend;
j: integer;
implementation
function GetApplicationDirectory:
string;
begin
GetApplicationDirectory := ExtractFilePath(ParamStr(0));
end;
procedure loadfileb(n:
string);
var Ini: TIniFile;
dir:
string;
sl: TStringList;
l: integer;
begin
dir:=GetApplicationDirectory+n;
sl:=TStringlist.Create;
Ini:=TIniFile.Create(dir+'
\'+n+'
.ini');
//Datei in Stringliste laden
try
ini.ReadSectionValues('
BMI', sl);
for l := 0
to sl.Count-1
do
helpd[l] := StrToDate(sl.Names[l]);
for l := 0
to sl.Count-1
do
helpb[l] := Integer(sl.Objects[l]);
j:= Length(helpb);
finally
Ini.Free;
sl.Free;
end;
end;
end.
Zitat:
Ich meinte eigentlich als Inhalt. Oder anders gefragt: Bist du sicher, dass der zusammengebaute Dateiname korrekt ist? Schließlich hängt davon ab, ob der nachfolgende Code so funktioniert, wie du das erwartest.
Ja ich bin mir zu 100% sicher, dass der Dateipfad richtig zusammengesetzt wird^^