In INI Datei abspeichern

[PierreB]

@mindforce: Unit schreiben ? Du wirst doch wohl in der Lage sein den Quellcode aus diesem Thread in deine Button-Prozedur zu kopieren, oder ? ich weiß nicht so recht was dein Problem ist. Bist du hier "Programmierer" oder sollen wir dir deine Programme schreiben ? Vielleicht solltest du dich wirklich erstmal intensiv mit den Grundlagen beschäftigen, so wird das doch nichts...

[mindforce]

Dazu bin ich nicht in der Lage, weil mir keiner erklären kann wie man "function´s" und manuelle "producer´s" schreibt.

/Edit: Bin kurz davor es zu können

[PierreB]

Dann lern es.

Delphi-Quellcode:

function SchreibeIni: Boolean;
var
  Ini: TIniFile; //Variable wird erstellt
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data/data.ini'); //Ini-Datei wird geladen
  ini.WriteString('PersData', 'Vorname', 'blupp'); //Daten werden geschrieben
  ini.Free; //Ini-Datei wird geschlossen
end;

Jetzt ruf sie einfach auf.....

[mindforce]

Muss ich dann schreiben

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, inifiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    function SchreibeIni: Boolean; //Hier das so schreiben???
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function SchreibeIni: Boolean;
var
  Ini: TIniFile; //Variable wird erstellt
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data/data.ini'); //Ini-Datei wird geladen
  ini.WriteString('PersData', 'Vorname', 'blupp'); //Daten werden geschrieben
  ini.Free; //Ini-Datei wird geschlossen 


end.

Das funzt nicht mit meiner deklaration die ich da oben gemacht habe über functions.
Wie muss ich DAS nun machen.

/Edit: Ich wusste nicht, dass das mit den Ini´s SO schwer ist.

[leddl]

Zitat von mindforce:

Dazu bin ich nicht in der Lage, weil mir keiner erklären kann wie man "function´s" und manuelle "producer´s" schreibt.

Ich würde es anders ausdrücken: Du bist nicht in der Lage, die Erklädungen auch umzusetzen. Es wurde jetzt mehrfach versucht, außerdem wurden dir diverse Anfängertutorials präsentiert. Die scheinst du nicht mal anzuschauen, denn andere Leute lesen sich die Dinger durch und verstehen danach die Grundlagen. Scheint also weder an den Erklärungen, noch an den Tuts zu liegen. Dann würde ich mir mal Gedanken machen, an was (bzw wem) es denn nun eigentlich liegt.

Zitat von mindforce:

NUR WEIL ICH 13 BIN MÜSST IHR MICH NICHT BEI JEDEM BEITRAG BELEIDIGEN!

Ich wüßte nicht, daß du andauernd beleidigt wirst. Und selbst wenn wäre es garantiert nicht deines Alters wegen, sondern einzig und alleine aufgrund deines Auftretens hier. Du gibst allen anderen hier die Schuld daran, daß du nichts hinbekommst und verlangst im gleichen Atemzug, daß man dir alles vorkaut. Kauf dir ein Anfängerbuch und geh das Schritt für Schritt durch. Damit solltest du alles nötige lernen und kannst danach tiefer in die Materie einsteigen. Solltest dir das das Geld nicht wert sein, lies dir die dir empfohlenen Tutorials durch und lerne eben damit die Grundlagen.

Zurück zum Thema:
Dir wurde in diversen Codestücken jetzt schon alles gesagt, was du brauchst. Zudem gibt es da ein schönes Ding namens "Onlinehilfe", die einem zu vielen Dingen so einiges erklären kann. Auch die Codevervollständigung zeigt oft einige interessante Dinge. Und zu allem Überfluss wurde dir auch ein Link zum INI-Tutorial gegeben. Dort wird doch eigentlich haarklein alles erläutert, was du brauchst. Was ist denn so schwer daran, daß jetzt eben mal umzusetzen?
Wenn es wirklich die Geschichte mit dem manuellen Erstellen von Prozeduren und Funktionen ist (wobei ich wirklich nicht verstehe, was daran so schwer sein soll - bist du dir wirklich sicher, daß Programmieren das richtige für dich ist, wenn du schon sowas nicht verstehen kannst?), dann häng dich doch gottverdammt einfach mal rein und lies dir was zu dem Thema durch. Das kann doch nicht so schwer sein! Das hat mit dem Alter nun wirklich nichts zu tun. Das bringt dir hier weder Bonus noch Nachteil, wenn du dich allerdings verhältst wie ein kleines Kind, das alles von anderen gemacht bekommen möchte, dann mußt du eben nunmal mit den Folgen leben!

//Edit:
Und wann lernst du denn bitte mal, daß du nicht ständig solche risigen Bilder hier anhängen mußt? 1MB ist für so ein Bildchen viel zu viel. Das kann auch mit weniger als 100kb noch gut zu erkennen sein. Mach doch einfach aus deinem BMP ein JPEG, und du hast schon einiges an Größe eingespart

[PierreB]

Eine Funktion muss nicht global deklariert werden, desweiteren hast du ein end; vergessen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, inifiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function SchreibeIni: Boolean;
var
  Ini: TIniFile; //Variable wird erstellt
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'data/data.ini'); //Ini-Datei wird geladen
  ini.WriteString('PersData', 'Vorname', 'blupp'); //Daten werden geschrieben
  ini.Free; //Ini-Datei wird geschlossen
end;
end.

[mindforce]

Problem mit Finally

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, inifiles, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

       procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
  try
  ini.WriteString('[NAME]', 'Hans', 'Peter'); //String wird geschrieben
  finally
    Ini.Free;

end
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ini : TiniFile;  //ini variable
begin
  ini := TiniFile.Create(ExtractFilePath(ParamStr(0))+'bin/'+'config.ini'); //ini erstellen
try
  begin
  Edit1.Text := ini.ReadString('NAME', 'Hans', ''); //String wird ausgelesen und in Edit eingetragen
finally [size=18]//HIER STECKT DAS PROBLEM[/size]
  ini.Free; //ini schließen
  end;

end;

end.

[leddl]

Delphi-Quellcode:

try 
  begin 
    Edit1.Text := ini.ReadString('NAME', 'Hans', ''); 
finally
  ini.Free;
end;

Was fällt dir an vorliegendem Code denn auf?
Btw: Ich gehe mal davon aus, daß der Fehler lautet: "End; erwartet, aber finally gefunden", oder? Und das war jetzt ein extremer Tipp

[mindforce]

Schlau! Ja das steht da!