Inifile Problem

[Dalai]

Zitat von Maximum:

Zitat:

Bei der Ausgabe welches Arrays?

Bei der Ausgabe von helpf [...]

Das ist kein Array sondern eine TStringList.

Zitat:

Um ehrlich zu sein, wusst ich bisher noch nichtmal, dass das geht bin noch nicht so geübt im umgang mit Delphi...

Nun weißt du es ja und kannst es intensiv nutzen .

Zitat:

Zitat:

Was wird überhaupt in die Funktion reingegeben als Parameter?

Ähm n ist ein Name, der wird gebraucht um auf das Verzeichnis der Datei zuzugreifen, [...]

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.

MfG Dalai

[Maximum]

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^^

[Medium]

Zitat von Maximum:

Delphi-Quellcode:

  dir:=GetApplicationDirectory+n;
  Ini:=TIniFile.Create(dir+'\'+n+'.ini');  //Datei in Stringliste laden

Ja ich bin mir zu 100% sicher, dass der Dateipfad richtig zusammengesetzt wird^^

Dann liegst du wahrscheinlich zu 100% falsch. Ich glaube kaum, dass das "n" dort wirklich zwei Mal dran soll.

[himitsu]

Warum gibt GetApplicationDirectory den Path und nicht das Directory zurück?

Dir = ohne abschließendes \
Path = mit



Und für aktuellere Delphis: TPath.Combine

[himitsu]

Zitat von Sir Rufo:

@Medium

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

Drum kam auch was von mir

Zitat von himitsu:

Warum gibt GetApplicationDirectory den Path und nicht das Directory zurück?

Dir = ohne abschließendes \
Path = mit



Und für aktuellere Delphis: TPath.Combine

[Medium]

Huaaaaaa, ich habe da doch echt ExtractFileDir() gelesen in seinem aktuellsten Schnipsel. Gut, dass gleich Wochenende ist.
Nichtsdestotrotz bin ich nach wie vor skeptisch. Vor allem, weil TIniFile.Create() keine Exception auslöst, wenn man einen nicht existenten Pfad angibt. Vielleicht wäre es zum Testen vorläufig besser, wenn man den kompletten absoluten Pfad zu der INI als String am Stück im Code nimmt. Einfach um wirklich gaaaaanz sicher zu sein, dass da auch wirklich etwas gelesen werden kann. (Bisher haben wir ja nichtmal eine Bestätigung, dass die Schleifen überhaupt durchlaufen. Oder ob sl.Count beim Durchsteppen wirklich >0 ist. Ich glaube irgendwie noch nicht so recht, dass da überhaupt eine INI mit Inhalt geöffnet wird.

[himitsu]

Zitat:

Nichtsdestotrotz bin ich nach wie vor skeptisch.

Ich nicht, denn ich weiß warum das so ist.

Schau dir mal an was für eine API verwendet wird ... die öffnet für jeden einzelnen Value-Zugriff die INI, liest sie neu ein, ändert den Wert und speichert alles.
WritePrivateProfileString
Wenn nichts im Contructor gemacht wird, außer sich den Dateinamen in einer Variable zu merken ... wo soll denn da ie Exception/Fehlerprüfung her kommen?

TMemIniFile

[Jumpy]

Zitat von Maximum:

Ja ich bin mir zu 100% sicher, dass der Dateipfad richtig zusammengesetzt wird

Glaub ich dir jetzt mal, obwohl ich mich auch gewundert habe, dass das n 2x in den Pfad+dateinamen kommt.

Zum Problem, guck dir mal den Part an:

Delphi-Quellcode:

  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]);

Du füllst in 2 Schleifen jeweils "helpd[l]:=". Damit überschreibst du beim 2x das, was du beim 1x reingeschrieben hast, ist das gewollt?

Davon ab scheint mir das "helpb[l] := Integer(sl.Objects[l]);" auch falsch, denn was soll in den Objekten drin sein, eigentlich doch nix, daher vllt. die 0 überall drin.

Du meintest wahrsch. sowas:
helpb[l] := Integer(sl.values[helpb[l]]);

[BadenPower]

Zitat von Maximum:

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.

Wo werden denn die Arrays ausgelesen?

Zitat von Jumpy:

Du füllst in 2 Schleifen jeweils "helpd[l]:=". Damit überschreibst du beim 2x das, was du beim 1x reingeschrieben hast, ist das gewollt?

sind doch 2 verschiedene
"helpd[l]:="
"helpb[l]:="

[Jumpy]

Zitat von BadenPower:

Zitat von Jumpy:

Du füllst in 2 Schleifen jeweils "helpd[l]:=". Damit überschreibst du beim 2x das, was du beim 1x reingeschrieben hast, ist das gewollt?

sind doch 2 verschiedene
"helpd[l]:="
"helpb[l]:="

Das hab ich nicht gesehen, dass da einmal b und einmal p am Schluss steht. Ist dann aber in jedem Fall ein gutes Beispiel für eine schlechte "Benamsung".

Davon ab steht aber der Rest meines Posts noch, dass wahrscheinlich sl.Values statt sl.Objects verwendet werden sollte.