Entwickler-Ecke :: Thema anzeigen - speichern von strings und variablen

Arctics - Mi 22.11.06 17:45

Leuchtturm hat folgendes geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:

var
a: string;
begin
a := 'Hallo';
Label1.Caption := a;

oder mit einer Stringlist.
Leuchtturm

PS:Deine Probleme müsstest du mit der suche eigentlich auch finden :wink:

ich habe vor eine highscore liste zu machen, wenn man dann seinen namen einträgt und das programm beendet und dann wieder aufruft wurde der name doch "vergessen" und genau dass sollte ja nicht passieren

Leuchtturm - Mi 22.11.06 17:48

Arctics hat folgendes geschrieben:

Leuchtturm hat folgendes geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:

var
a: string;
begin
a := 'Hallo';
Label1.Caption := a;

oder mit einer Stringlist.
Leuchtturm

PS:Deine Probleme müsstest du mit der suche eigentlich auch finden :wink:

dann schaue dir mal jasocul's Link [http://www.delphi-library.de/viewtopic.php?t=182&highlight=inifile] an

Arctics - Mi 22.11.06 17:51

Leuchtturm hat folgendes geschrieben:

Delphi-Quelltext

1:
2:
3:
4:
5:

var
a: string;
begin
a := 'Hallo';
Label1.Caption := a;

oder mit einer Stringlist.
Leuchtturm

PS:Deine Probleme müsstest du mit der suche eigentlich auch finden :wink:

Arctics - Mi 22.11.06 18:07

ich hab mir mal Das hier [http://www.dsdt.info/tipps/?id=104]
angeschaut um überhaupt mal was über ini zu erfahren - habs natürlich auch gleich ausprobiert:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;  //zeile37
begin
  try
    Ini:=TIniFile.Create('C:\Test.ini'); //zeile 40 usw.
    Ini.WriteString('Section','Schlüssel1','Wert');
    Ini.WriteInteger('Section','Schlüssel2',10);
    Ini.WriteBool('Section','Schlüssel3',True);
  finally
    Ini.Free;
  end;
end;

aber da kamen folgede probleme :

Zitat:

[Error] Unit1.pas(37): Undeclared identifier: 'TIniFile'
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(40): Incompatible types: 'TComponent' and 'String'
[Error] Unit1.pas(41): Missing operator or semicolon
[Error] Unit1.pas(42): Missing operator or semicolon
[Error] Unit1.pas(43): Missing operator or semicolon
[Error] Unit1.pas(45): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

was hab ich denn falsch gemaccht?

Moderiert von jasocul: Quote-Tags durch Delphi-Tags ersetzt

Popov - Mi 22.11.06 19:25

Hier ein kleines Beispiel. Die INI wird im gleichen Verzeichnis wie das Programm automatisch erstellt, Du mußt nichts machen. Für das Beispiel habe ich meine Unit "EasyIniAppExe.pas" benutzt. Die findest du hier: http://www.delphi-forum.de/viewtopic.php?p=127274#127274 . Ich hoffe du weißt wie man eine Unit einbindet?

Der Rest ist einfach. Zuerst erstellen wir Beispieldateien:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

uses
  EasyIniAppExe;

type
  THighScore = Record
    Name: String;
    Points: Integer;
  end;

var
  HighScore: Array[1..3] of THighScore;

Dann Beispiel für das Sichern:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  //Beispielwerte

  HighScore[1].Name := 'Paul';
  HighScore[1].Points := 24566;
  HighScore[2].Name := 'Klaus';
  HighScore[2].Points := 12534;
  HighScore[3].Name := 'Jörg';
  HighScore[3].Points := 42134;

  // Sichern mit EasyIniAppExe

  // Zuerst alle HighScore Werte in der Ini löschen. Wir sichern alles zusammen; ist besser.
  EraseIniSection('HighScorePunkte');

  // Jetzt speichern
  for i := 1 to 3 do
    WriteIniInteger('HighScorePunkte', HighScore[i].Name, HighScore[i].Points);
end;

Jetzt noch das Zurücklesen:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  i: Integer;
begin
  // Laden mit EasyIniAppExe

  // Zuerst alle alten Werte im Array löschen und kurz prüfen ob wirklich leer.
  for i := 1 to 3 do
  begin
    HighScore[i].Name := '';
    HighScore[i].Points := 0;
    with HighScore[i] do ShowMessage(Format('Nur Test!!!!! Platz %d: %s, %d', [i, Name, Points]));
  end;

  // Jetzt holen wir wieder die Werte aus der Ini zurück
  sl := TStringList.Create;
  try
    ReadIniSection('HighScorePunkte', sl);
    for i := 0 to sl.Count - 1 do
    begin
      HighScore[i+1].Name := sl[i];
      HighScore[i+1].Points := ReadIniInteger(sl[i], 'Points', -1);
    end;
  finally
    sl.Free;
  end;

  // Jetzt testen wir den Array Inhalt neu
  for i := 1 to 3 do
    with HighScore[i] do ShowMessage(Format('Platz %d: %s hat %d Punkte', [i, Name, Points]));

end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!