Daten in Datei schreiben.

[Jelly]

Zitat:

Zitat von edosoft

für jeden integer-wert den du speicherst werden lediglich 4 byte belegt.

Und für eine x-Postion von z.B. 803 werden als String nur 3 byte belegt ;-)

[smart]

Es sollte übersichlich sein, damit dem User klar wird, was zu was gehört. Das ganze sollte deswegen in einer Datei, damit diese Datei bearbeiten, bzw. austauschen kann. Bei VB. konnte man einfach - ; - beim schreiben und lesen setzen.

[edosoft]

also wen der user die datei bearbeiten soll dann würd ich ne ini nehmen.


/edit: such mal inner hilfe nach TIniFile. damit geht das gaanz einfach.(etwa so wie ne registrierung auslesen oder so)

[edosoft]

@Jelly: ahja...
und wenn du dann 4 von den positionen speicherst heists halt 283628498308
wo hört die eine auf und fängt die andre an? du musst also einen terminator hinbauen, der braucht wieder ein byte platz und nachher musst auch noch umständlich danach scannen.


ach und sonst kanns ja auch ein 2-byte-integer nehmen der dürfte für screen-koordinaten vollkommen reichen.(damit könnte man immerhin werte bis 65535 speichern)

[smart]

An einer Ini habe ich auch schon gedacht. Da habe ich fast das gleiche Probl. mit der Trennung. Ich müsse dann eine Trennung beim schreiben setzten und diese dann beim lesen scannen. Mit z.B copy usw. ist das sehr aufwendig. Ich dachte das es dafür vieleicht eine einfache Lösung gibt.

[edosoft]

sagte ich doch schon:

TINIFILE!!

Delphi-Quellcode:

var inif: tinifile;
begin
inif:=tinifile.create(dateiname);
inif.writestring('position_der_form_1_X', inttostr(form1.left));
inif.free;
end;

kann natürlich sein dasses total falsch ist ich hab delphi grad net geöffnet aber irgendwie so ähnlich isses, gibst halt mal irgendwo "tinifile" ein, klickst auf das wort so dass der cursor halt in dem wort drin ist und drückst F1.
in dem ini file heists dann halt irgendwie so:
position_der_form_1_X = 123

/edit: "if" ist wohl kein guter variablenname O.o

[smart]

Vielen Dank für die Antworten. Das schreiben klappt, aber ich bekomme das ganze nicht richtig eingelesen?

Delphi-Quellcode:

var
  GameIni: TIniFile;
begin
  Gameini := TIniFile.Create('C:\Dokumente und Einstellungen\Test\Desktop\FUNGAME.INI');
  with GameIni do
  begin
    WriteString('Fenster', 'Tittel', 'Fenster1');
    WriteInteger('Fenster', 'Top', 3);
    WriteInteger('Fenster', 'Left', 3);
    Free;
  end;

Ich mache da irgendwie ein Denkfehler, aber ich komme nicht darauf. Könntest Du mir mal ein Tipp geben, wie man das ganze wieder einlesen kann.

[smart]

Vielen Dank nochmal. Ich bin doch darauf gekommen.

Delphi-Quellcode:

var
  GameIni: TIniFile;
begin
  Gameini := TIniFile.Create('C:\Dokumente und Einstellungen\Test\Desktop\FUNGAME.INI');
  with GameIni do
  begin
   Form2.Caption := ReadString('Fenster', 'Tittel','');
   Form2.Top := ReadInteger('Fenster', 'Top', 0);
   Form2.Left := ReadInteger('Fenster', 'Left', 0);
    Free;
  end;

[Jelly]

Zitat:

Zitat von edosoft

und wenn du dann 4 von den positionen speicherst heists halt 283628498308
wo hört die eine auf und fängt die andre an? du musst also einen terminator hinbauen, der braucht wieder ein byte platz und nachher musst auch noch umständlich danach scannen.

Du willst nicht wirklich mit mir eine Diskussion über ein Byte Festplattenspeicher führen, oder! Meine Bemerkung war ironischer Natur, falls das nicht gemerkt wurde :zwinker:

[edosoft]

:-D