Werte speichern und abrufen?

[Siggy]

Hallo Delphi Gemeinde,

Habe mal wieder eine Frage =)
Und da ich hier das erste Mal so schnelle Hilfe bekommen hab, dacht ich mir ich wende mich gleich als erstes wieder an euch.

Ich habe als Hausaufgabe von meinem Lehrer die Aufgabe bekommen einen BMI (BodyMassIndex) Rechner zu erstellen.
Er soll den BMI ausrechnen und dann als Ausgabe liefern wo der BMI liegt und je nachdem welches Geschlecht man besitzt eine Nachricht melden wie man ungefähr liegt.
Naja bisschen kompliziert das auszudrücken, deswegen hab ich die .exe mal angehängt.

Nun zu meiner Frage:

Ich würde gerne den BMI der "ausgespuckt" wird speichern. Sprich ich will oben einen extra Menüpunkt und in der Anwendung einen extra Button, der den Wert mit dem Datum des Pc speichert. Sodass man seinen BMI jederzeit abrufen kann um so Veränderungen festzustellen.

Ist dies möglich? Und wenn ja und es nicht allzu kompliziert ist für einen Anfänger wie mich würde ich mich sehr darüber freuen wenn mir jemand helfen könnte.


Vielen Dank im Vorraus!


Mfg Siggy

[mkinzler]

Ini, Textdatei XML, Datenbank, ...

[DeddyH]

Hallo, das IMHO Einfachste wäre eine IniFile. Die sind so aufgebaut:

Code:

[Section]
Ident=Value

[AnotherSection]
Ident=Value
Ident2=Value2

Delphi bietet Dir mit TIniFile (in der Unit IniFiles) eine Klasse, mit der Du so eine Datei recht bequem schreiben/lesen kannst.

[edit] 2x "Klasse" ist nicht so klasse :lol: [/edit]

[Blackheart]

Dann noch folgend das Tutorial dazu :wink: Ini Tutorial

[Siggy]

Erst einmal Vielen Dank für die schnellen Antworten.
Allerdings kann ich recht wenig damit anfangen :D
Kenne mich kaum bei Delphi aus, da ich erst dieses Schuljahr damit angefangen habe.

Habe mir das Tutorial mal angeschaut und habe dann folgendes gemacht.

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
begin
ini := Tinifile.create ('c:\inispeicher.ini');
try
ini.WriteInteger (edit3.text,'W1',1234);
finally
  ini.free;
end;

Wenn ich das richtig verstanden habe sollte er doch dann eigentlich eine .ini Datei auf c:\ erstellen oder?
Naja das hat er aber nicht gemacht^^

Also der Wert den ich Speichern will steht in Edit3 und ist eine Zahl (unter umständen auch mit Komma)
Ausserdem will ich wie schon erwähnt auch gleich das aktuelle (Pc) Datum mitspeichern.

Kann mir das vlt jemand erklären so dass es auch jemand der absolut keine ahnung von sowas hat versteht?

Wäre super!!


Siggy

[mkinzler]

Hast du das Tutorial gelesen?

[Siggy]

Ja habe ich!

Sonst hätte ich nichtmal das hier hinbekommen

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
begin
ini := Tinifile.create ('c:\inispeicher.ini');
try
ini.WriteInteger (edit3.text,'W1',1234);
finally
  ini.free;
end;

Wie gesagt ich kenn mich da nicht aus und hab das Tutorial auch nicht so gan verstanden.

[mkinzler]

Mich irritiert die Tatsache das du den Inhalt des Edits als Name der Sektion nimmst.
Hast du Schreibrechte im Root von C?

[Siggy]

Ich kann mich nur wiederholen^^

ICH HAB ABSOLUT KEIN PLAN WAS ICH DA GEMACHT HABE ;)

Ich habe einfach mal Sachen ausprobiert. Mein Ziel ist es den Wert der nach der Rechnung in Edit3 erscheint zu speichern deshabl habe ich es so probiert.
Und ich habe einfach irgend einen Pfad ausgewählt. Am liebsten wäre es mir wenn die Ini in dem Ordner gespeichert wird in dem sich auch die .exe befindet.

Kann mir da niemand vlt ein kurzes beispiel schreiben? :coder: :oops:

[freak4fun]

Möchtest du deinen errechneten BMI einem Wert zuweisen, zB einem Namen?

Edit:

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
begin
  ini := Tinifile.create ('c:\inispeicher.ini');
  // 'c:\inispeicher.ini' = Speicherpfad der Datei 
  try
    ini.WriteInteger (edit3.text,'W1',1234);
    // Schreibt einen Integer-Wert in die Inidatei
    // edit3.text = Name der Sektion (Der Wert in den eckigen Klammern / muss eindeutig sein!)
    // 'W1' der Wert vor dem =
    // 1234 der Wert hinter dem =  
  finally
    ini.free;
  end;
end;