Inifile Problem

[Maximum]

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.

[Medium]

Ich vermute nach wie vor hier den zumindest ersten Fehler, zumal der TE bisher nicht weiter darauf einging, abgesehen von der richtigen Änderung zu "-Dir" statt "-Path" in diesem Fall:

Delphi-Quellcode:

  dir:=GetApplicationDirectory+n;
  Ini:=TIniFile.Create(dir+'\'+n+'.ini');

Mal in Prosa. GetApplicationDirectory() liefert vermutlich etwas dieser Art zurück:
C:\Projekte\MeinProgramm

Jetzt wird "n" dazu gepackt. Angenommen n = 'Hallo':
C:\Projekte\MeinProgrammHallo

Dann wird ein '\' und nochmals "n" sowie '.ini' drangehängt:
C:\Projekte\MeinProgrammHallo\Hallo.ini

SOLL DAS "HALLO" WIRKLICH AN DAS VERZEICHNIS GEPACKT WERDEN, TE!? Weil es wirkt auf mich so, als wäre das eine sehr seltsame Struktur.

[Sir Rufo]

@Medium

Du nimmst falsch an, denn in dem Quelltext vom TE steht

Delphi-Quellcode:

function GetApplicationDirectory: string;
begin
  GetApplicationDirectory := ExtractFilePath(ParamStr(0));
end;

Also wird dort etwas in der Art zurückgeliefert

Code:

C:\Foo\Blup\App\

Jetzt wird dort der Name angehängt

Delphi-Quellcode:

  dir:=GetApplicationDirectory + n;
  Ini:=TIniFile.Create( dir + '\' + n + '.ini' );

und wir erhalten

Code:

n => 'bmifoo'

dir => 'C:\Foo\Blup\App\bmifoo'
inifile => 'C:\Foo\Blup\App\bmifoo\bmifoo.ini'