EDIT Inhalte in Datei abspeichern und wieder laden

[Andi44]

Hallo Forum!

Ich habe ein kleines Programm geschrieben, dass nur aus einer Form besteht, dieses Programm rechnet die Theoertische Geschwindigkeit von Propeller getriebenen booten aus.

Es sind also ein paar EDIT Felder vorhanden in denen ich Zahlen eingeben muss, die in Variablen gespeichert werden.

- Drehzahl - , z.B. 4600
- Untersetzung , z.b. 1.75
- Steigung - z.b. 17

daraus errechnet er dann eine theoretische Geschwindigkeit auf Knopfdruck.

Nun möchte ich aber, damit es komfortabler wird, dass der Benutzer diese Inhalte als Datei abspeichern kann und später wieder laden kann um mit den Daten zu rechnen. ( es gibt ja viele verschiedenen Motoren mit verschiedenen drehzahlen , untersetzungen)

Das stelle ich mir so vor, dass ich einen Menüpunkt " abspeichern " in meine Form erstelle und dann soll ein Speichern Dialog erscheinen, wo ich dann in den Ordner springen kann, Dateinamen eingeben kann und schliesslich abspeichere.

Ausserdem möchte ich dann in meinem Menü einen Punkt " daten laden " erstellen, wo dann wieder ein Dialog aufegeht, in dem ich nach meiner abgespeicherten Datei suchen kann und schliesslich lade.

Das ganze habe ich mit Delphi 6 erstellt. Ich bin eher ein Anfänger und wollte mal wissen, ob es ohne Riesenaufwand möglich ist.

Benötige ich dazu andere Komponenten? Ich habe leider keine Ahnung wie ich das realisieren soll.

Über einen Link-Tipp, oder direkte Hilfe würde ich mich sehr freuen!

Gruss
Andi

[little_budda]

Hallo Andi44,

du kannst die Felder in eine Ini Speichern.
Dann sparst du dir auch den Weg über den Auswahldialog und du kannst eigene Profilnamen vergeben.

Delphi-Quellcode:

uses ... IniFiles ...

...


procedure SaveEdits;
var resultIniFilePfad : string;
    resultini : tinifile;
    startpfad  : string;
begin
  // Vorgabewerte sichern
  getdir(0, startpfad);                            // Eigenen Startpfad einlesen
  if (startpfad[length(startpfad)] <> '\')
    then startpfad := startpfad + '\';             // Pfad ggf. korrigieren
  resultIniFilePfad := frm_main.startpfad + '\base.ini';  // Result Default Values
  if (fileexists(resultIniFilePfad) = True) then         // Wenn das INI File vorhanden ist ...
    begin
      resultini := tinifile.Create(resultIniFilePfad);
        with resultini do
          begin
            writeString('DefaultValues_1', 'Name', ed_0.text);
            writeString('DefaultValues_1', 'drehzahl', ed_1.text);
            writeString('DefaultValues_1', 'untersetzung', ed_2.text);
            writeString('DefaultValues_1', 'steigung', ed_3.text);
          end;
        resultini.free;
    end;

end;

Gruß Holger.
[edit]code[/edit]

[Andi44]

Danke,das geht ja schnell hier! das werde ich einmal versuchen , auszuprobieren, habe ja jetzt viel Lernstoff :)

Wie ist es denn, werden meine Variablen ( drehzahl, untersetzung, etc ) in eine Datei gespeichert?

Wie lade ich sie denn wieder?

Dankeschön!

[DeddyH]

Zitat:

Zitat von Andi44

Wie lade ich sie denn wieder?

Im Prinzip genauso, nur andersherum: IniFile erzeugen und dann so etwas:

Delphi-Quellcode:

ed_0.text := Ini.ReadString('DefaultValues_1','Name','');

[little_budda]

Die Ini Datei aus meinem Beispiel liegt im Pfad deines Programmes.

Die Werte aus deinen Edits liegen in der Datei.

Das Laden ist auch nicht schwer:

Delphi-Quellcode:

procedure ReloadEdits; 
var resultIniFilePfad : string; 
    resultini : tinifile; 
    startpfad  : string; 
begin 
  // Vorgabewerte sichern 
  getdir(0, startpfad);                            // Eigenen Startpfad einlesen 
  if (startpfad[length(startpfad)] <> '\') 
    then startpfad := startpfad + '\';             // Pfad ggf. korrigieren 
  resultIniFilePfad := frm_main.startpfad + '\base.ini';  // Result Default Values 
  if (fileexists(resultIniFilePfad) = True) then         // Wenn das INI File vorhanden ist ... 
    begin 
      resultini := tinifile.Create(resultIniFilePfad); 
        with resultini do 
          begin 
           ed_0.text := readString('DefaultValues_1', 'Name', ''); 
           ed_1.text := readString('DefaultValues_1', 'drehzahl', ''); 
           ed_2.text := readString('DefaultValues_1', 'untersetzung', ''); 
           ed_3.text := readString('DefaultValues_1', 'steigung', ''); 
          end; 
        resultini.free; 
    end; 
end;

Tipp:
Ich würde die Schlüsselnamen separat ablegen, dann kannst du sie über einen Comobox oder List auswählbar machen.
Das ist komfortabeler wenn du mehrere Profile hast, weil sie ja alle in einer Datei liegen.

Gruß Holger.

[Twinsetter]

Er sollte noch ein Editfeld vorsehen wo er die Bezeichnung eingeben kann. Für das von Andi44 gezeigte Beispiel wäre das DefaultValues_1.

Der Code würde dann auszugsweise wie folgt aussehen:

Delphi-Quellcode:

begin 
  writeString(ed_4.text, 'Name', ed_0.text); 
  writeString(ed_4.text, 'drehzahl', ed_1.text); 
  writeString(ed_4.text, 'untersetzung', ed_2.text); 
  writeString(ed_4.text, 'steigung', ed_3.text); 
end;

ed_4.text ist der Bezeichner für das neue Editfeld.

Nicht so gut an dieser Methode ist, daß bei Vergabe eines gleichen Abschnitsbezeichners vorhandene Daten überschrieben werden.

[little_budda]

Aber er kann doch vor dem schreiben prüfen ob der Schlüssel schon existiert ...

[grenzgaenger]

ist dafür nicht seit TP6 das konzept der streams mit der serializierung implementiert worden? Ich erinnere mich dunkel... hatte das bislang noch nie gebraucht. aber das wäre 'n klassischer fall. sollte mit 'n paar tastendrücken erledigt sein...

vielleicht weiss jemand wie das geht und kennt 'n tutorial... :-)

[Andi44]

ich weiss nicht, ob ich das richtig verstehe, aber ich wollte für meine Dateien immer verschiedene Dateinamen haben.

Also zum Beispiel so:

untersetzung 2
drehzahl 5500
steigung 20

das ganze speichere ich unter z.B. Andis_Boot.xyz

wenn die EditFelder nun die daten eines anderen Bootes enthalten

utersetzung: 1.75
drehzahl 6000
steigung 24

dann wieder in eine Datei speichern z.B. Werners_Boot.xyz

so dass ich eben mehrere Dateien habe , die ich wieder einlesen kann wenn ich möchte.

einen Öffnen bzw. speichern dialog habe ich mit der vorgenannten methode wohl nicht, oder?
Das wäre für die Bediener schon recht sinnvoll, da viele Benutzer mit verschiedenen Boot/Motor Kombinationen herumtesten um die zu erwartende geschwindigkeit zu haben :)
So werden schon ein paar Dateien entstehen, denke ich.

gruss
Andi

[DeddyH]

Da wären vielleicht typisierte Dateien oder besser eine kleine Datenbank eine Überlegung wert.