Hallo Leute,
Erstmal ein großes Danke an alle die sich mit meinem Problem beschäftigen und versuchen mir zu helfen!
Ich hab mir eure Antworten angekuckt und Vorschläge ausprobiert(Backslash bleibt vorerst, da ich wie schon gesagt erstmal erreichen will, dass es funktioniert).
Folgendes kam dabei raus:
Delphi-Quellcode:
unit ULoad2;
interface
uses SysUtils,StdCtrls, ExtCtrls,FileCtrl, Classes, Graphics, Controls, Forms,IniFiles, Dialogs;
type tladenbmi=
array[1..365]
of String;
tladendate=
array[1..365]
of TDate;
function GetApplicationDirectory:
string;
procedure loadfileb(n:
string);
var
helpbmi:tladenbmi;
helpdate:tladendate;
test:
string;
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
begin
helpdate[l]:=StrToDate(sl.Names[l]);
helpbmi[l]:=sl.Values[DateToStr(helpdate[l])];
end;
test:= helpbmi[1];
finally
Ini.Free;
sl.Free;
end;
end;
end.
So nachdem ich nun test in einem Editfeld ausgebe bleibt dieses jedoch leer, verändert sich jedoch(Defaulttext:'Edit1'; nach Ausführung des Befehls:''; )
Ich weiß schonwieder echt nicht weiter. Ist mir echt peinlich, wie blöd ich mich anstell...
PS: Sorry das ich so unregelmäßig antworte, hab zur Zeit nicht viel Zeit.