brauche ini hilfe

[da-zocka]

hab dazu nichts gefunden

problem:

Delphi-Quellcode:

var
ini: TIniFile;
User: string;

begin
ini:=TIniFile.Create ('/'+User+'.ini');
  try
label1.caption:=ini.ReadString(User,'Punkte', '00000');
label2.caption:=ini.ReadString(User,'Geld','00000');
label3.caption:=ini.ReadString(User,'Geschwindigkeit','00000');
label4.caption:=ini.ReadString(User,'Angriff','00000');
label5.caption:=ini.ReadString(User,'Verteidigung','00000');
label6.caption:=ini.ReadString(User,'Geschicklichkeit','00000');
label7.caption:=ini.ReadString(User,'Ruf','00000');
  finally
    ini.free;
  end;
end;

ini:

Delphi-Quellcode:

[User]
Punkte=00001
Geld=00000
Geschwindigkeit=00000
Angriff=00000
Verteidigung=00000
Geschicklichkeit=00000
Ruf=00000

es wird anstatt 00001 im Label 00000 angezeigt.


Bitte um schnelle Hilfe

[ringli]

Delphi-Quellcode:

ini:=TIniFile.Create ('/'+User+'.ini');

Wo soll deiner Meinung nach diese Datei landen? Im Programmverzeichnis? Im Anwenungsdatenordner?

Wenn die INI-Datei im Programmverzeichnis liegen soll, dann wäre hier wohl eher

Delphi-Quellcode:

ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + User + '.ini');

angebracht.

[DeddyH]

Abgesehen davon: was steht denn in der Stringvariablen "User"?

[da-zocka]

Zitat:

Zitat von ringli

Delphi-Quellcode:

ini:=TIniFile.Create ('/'+User+'.ini');

Wo soll deiner Meinung nach diese Datei landen? Im Programmverzeichnis? Im Anwenungsdatenordner?

Wenn die INI-Datei im Programmverzeichnis liegen soll, dann wäre hier wohl eher

Delphi-Quellcode:

ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + User + '.ini');

angebracht.

Da liegt ja nicht mein problem, mein Problem liegt daran, dass im Label anstatt 00001 0000 angezeigt wird.

Delphi-Quellcode:

var
ini: TIniFile;
User: string;

begin
ini:=TIniFile.Create ('/'+User+'.ini');
  try
label1.caption:=ini.ReadString(User,'Punkte', [b]'00000'[/b]);
label2.caption:=ini.ReadString(User,'Geld',[b]'00000'[/b]);
label3.caption:=ini.ReadString(User,'Geschwindigkeit',[b]'00000'[/b]);
label4.caption:=ini.ReadString(User,'Angriff',[b]'00000'[/b]);
label5.caption:=ini.ReadString(User,'Verteidigung',[b]'00000'[/b]);
label6.caption:=ini.ReadString(User,'Geschicklichkeit',[b]'00000'[/b]);
label7.caption:=ini.ReadString(User,'Ruf',[b]'00000'[/b]);
  finally
    ini.free;
  end;
end;

:wall:

[DeddyH]

Nochmal: was steht denn in "User"?

[mkinzler]

Wie sieht die Ini aus?

[ringli]

Zitat:

Da liegt ja nicht mein problem, mein Problem liegt daran, dass im Label anstatt 00001 0000 angezeigt wird.

Neben dem von DeddyH erwähntem Punkt liegt da dein Problem. Da die INI-Datei bzw. die entsprechende Sektion nicht gefunden wird, werden die von dir angegebenen Defaultwerte verwendet.

[DeddyH]

Zitat:

Zitat von mkinzler

Wie sieht die Ini aus?

Steht im Ausgangspost ;)

[da-zocka]

Ja, aber ich kann die ini ja auf dem Pfad erstellen.

[Die Muhkuh]

Trotzdem wollen wir wissen, was in User steht ;)

[da-zocka]

User ist eine Variable, die den Spielernamen angibt, die man am einfang eingibt.

[ringli]

Lass dir doch mal ausgeben welchen Pfad die INI-Datei tatsächlich hat.

Delphi-Quellcode:

var
ini: TIniFile;
User: string;

begin
ini:=TIniFile.Create ('/'+User+'.ini');
showmessage(ini.FileName); // <-- Diese Zeile an dieser Stelle einfügen
  try
label1.caption:=ini.ReadString(User,'Punkte', [b]'00000'[/b]);
label2.caption:=ini.ReadString(User,'Geld',[b]'00000'[/b]);
label3.caption:=ini.ReadString(User,'Geschwindigkeit',[b]'00000'[/b]);
label4.caption:=ini.ReadString(User,'Angriff',[b]'00000'[/b]);
label5.caption:=ini.ReadString(User,'Verteidigung',[b]'00000'[/b]);
label6.caption:=ini.ReadString(User,'Geschicklichkeit',[b]'00000'[/b]);
label7.caption:=ini.ReadString(User,'Ruf',[b]'00000'[/b]);
  finally
    ini.free;
  end;
end;

[Die Muhkuh]

Steht in der Ini wortwörtlich [User] drin oder ist das nur ein Platzhalter für uns?

[DeddyH]

Und vielleicht noch ein

Delphi-Quellcode:

ShowMessage(User);

dazu. :stupid:

[Blink]

Vielleicht solltes du bevor du auf die INI Datei zugreifst über prüfen ob sie überhaupt in dem angegeben Verzeichnis existiert mit FileExists.

[Die Muhkuh]

Das Erstellen der Ini sollte nicht das Problem sein, sonst würde es ja erst gar nicht die Defaultwerte laden, wenn es beim Erstellen schon kracht.

[ringli]

Zitat:

Zitat von Die Muhkuh

Das Erstellen der Ini sollte nicht das Problem sein, sonst würde es ja erst gar nicht die Defaultwerte laden, wenn es beim Erstellen schon kracht.

Solange das Erstellen des INI-Objektes nicht fehlschlägt, werden die Defaultwerte auch geladen selbst wenn die Datei gar nicht existiert. Jedenfalls so viel ich weiß. Lasse mich diesbezüglich aber gerne eines besseren belehren.

[Die Muhkuh]

Stimmt schon, ich hatte das mit dem FileExists nicht beachtet, sondern das einige "auf dem Pfad herumhacken", deswegen die Aussage.

[da-zocka]

Das hab mich mir für demnächst überlegt, wenn ich erstmal das problem gelöst hab.

[taaktaak]

Dann kläre doch zunächst einmal Detlefs Frage: Was steht in USER?
Wenn der Schnipsel aus Post#1 rudimentär deine LadeMethode wiedergibt, dann wird USER dort lokal deklariert - und hat keinen Inhalt und ganz bestimmt nicht den Inhalt, der an anderer Stelle einer "anderen" Variable USER übergeben wurde.

[mkinzler]

Das die Default-werte verwendet werden, weisst darauf hin, das etwas schief läuft. Deshalb muss man Schritt für Schritt überprüfen, was. Der erste Schritt ist es nunmal festzustellen, ob die Ini am richtigen Ort gesucht wird. Solange er aber nicht verrät was in User steht, stochern wir weiter im Nebel.

[Blackheart]

Benutz doch mal ParamStr.

[DeddyH]

Delphi-Quellcode:

var
ini: TIniFile;
User: string; //lokale Deklaration

begin
  //was soll denn hier in User drinstehen?
  ini:=TIniFile.Create ('/'+User+'.ini'); //relativer Pfad, das ist pöhse
  try
    //Tja, welchen Wert hat User hier?
    label1.caption:=ini.ReadString(User,'Punkte', '00000');
    label2.caption:=ini.ReadString(User,'Geld','00000');
    label3.caption:=ini.ReadString(User,'Geschwindigkeit','00000');
    label4.caption:=ini.ReadString(User,'Angriff','00000');
    label5.caption:=ini.ReadString(User,'Verteidigung','00000');
    label6.caption:=ini.ReadString(User,'Geschicklichkeit','00000');
    label7.caption:=ini.ReadString(User,'Ruf','00000');
  finally
    ini.free;
  end;
end;

[da-zocka]

1. In User soll der Username stehen den man am anfang angibt z. B. könnt man DeddyH angeben oder da-zocka, das ist aber alles schon fertig.

2.Der Pfad ist erstmal unwichtig(Er leitet automatisch auf das laufwerk C:).

3. User ist der Wert der Sektion.

[mkinzler]

Da es eine lokale Variable User existiert, die eine globale überdeckt.

[ringli]

Zitat:

Zitat von da-zocka

1. In User soll der Username stehen den man am anfang angibt z. B. könnt man DeddyH angeben oder da-zocka, das ist aber alles schon fertig.

2.Der Pfad ist erstmal unwichtig(Er leitet automatisch auf das laufwerk C:).

3. User ist der Wert der Sektion.

zu 2) Der Pfad ist erstmal das wichtigste. Wenn die Datei nicht gefunden wird von deinem Programm ist völlig egal was darin steht, denn es wird nie gelesen werden.
zu 3) In der Ini-Datei darf die Sektion dann aber nicht "User" heissen wenn du sie anschliessend mit dem Namen "da-zocka" auslesen möchtest. Ist doch irgendwie logisch, oder?

[DeddyH]

Ein Beispiel zur Verdeutlichung:

Delphi-Quellcode:

implementation

var User: string = 'Wuppdi';

procedure TFormBla.Machwas;
var User: string;
begin
  ShowMessage(User); //na, was wird ausgegeben?
end;

@ringli: der Sectionname soll ja aus der Variablen befüllt werden.

[da-zocka]

Das mit dem Username is doch schon alles geregelt.

[DeddyH]

Wie sieht der aktuelle Source denn jetzt aus?

[da-zocka]

Das ist immer noch der, nur der Username wird durch ein MessageDialog gesteuert.

[mkinzler]

Lass dir den dateinamen inkl. kompletten Pfad doch mal anzeigen

[Die Muhkuh]

Häng mal das Projekt an, so kommen wir einfach nicht weiter...

[DeddyH]

Das fürchte ich auch.

[da-zocka]

Sorry, 56KiloBites Leitung.

Mal kucken vllt kann ich diese Woche mal bei nem Freund uppen.

[Die Muhkuh]

Wenn Du nur die Sourcen uppst, sind das wohl nicht mal 10kb.

[mkinzler]

Dir den Pfad anziegen lassen, sollte aber ersteinmal reichen