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

// Schreiben:

function booltostring(dummy_bool:boolean):String;
begin
case dummy_bool of
true: result:=' Markiert';
false: result:=''
end;
end;

var
dummy_string:String;
begin
dummy_string:=Radiobutton1.Caption;
dummy_string:=dummy_string+': '+booltostring(Radiobutton1.checked);
memo1.lines.add(dummy_string);
memo1.savetofile('dateiname.txt');
end;					

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

[..]
uses inifiles;
[..]

// Schreiben:

var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('dateiname.ini');
dummy_inifile.writeboolean('Inifile_section','radiobutton1',radiobutton1.checked);
dummy_inifile.free;
end;

// Lesen:

var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('dateiname.ini');
radiobutton1.checked:=dummy_inifile.readboolean('Inifile_section','radiobutton1',false);
dummy_inifile.free;
end;					

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

var
dummy_stringlist:TStringlist;
begin
dummy_Stringlist:=Tstringlist.create;
// Hier analoges Arbeiten zum TMemo, außer, dass statt lines direkt in die Items der Liste eingetragen wird:
dummy_stringlist.items.add('ein string');
//speichern wieder direkt per Stringlistinstanz:
dummy_Stringlist.savetofile('dateiname.txt');
dummy_Stringlist.free;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
begin
  sl := TStringList.Create;
  try
    sl.add('Eine Zeile hinzufügen');
    sl.add('Noch eine Zeile...');

    // Immer kompletten Pfad angeben, niemals relativ. Dateien am Besten im Anwendungsdaten-Ordner speichern (Suchbegriff im Forum: GetShellFolder, SHGetSpecialFolderLocation, ...)
    sl.SaveToFile('D:\Ordner\Datei.dat');
  finally
    sl.Free;
  end;
end;					

1:
2:
3:

  ...
  Memo1.Text := sl.text;
  ...					

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

var
  ini: TMemIniFile;
begin
  // Wieder kompletten Pfad angeben!
  ini := TMemIniFile.Create('C:\Datei.ini');
  try
    // String schreiben
    ini.writeString('Sektion', 'Schlüssel', 'Wert');

    // Boolean schreiben (geeignet für einen RadioButton)
    ini.writeBool('Sektion', 'RadioButton1', RadioButton1.Checked); 

    // Auslesen geht analog dazu ( s ist ein String)
    s := ini.readString('Sektion', 'Schlüssel', 'defaultWert');
  finally
    ini.Free;
  end;
end;					

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

var
ini: TMemInifile;
begin
ini := TmemInifile.Create('C:\Datei.ini');
try
  ini.WriteString('Sektion', 'Schlüssel', 'Wert');
  ini.writeBool('Sektion', 'RadioGroup', RadioGroup1.checked);
  s := ini.readString('Sektion', 'Schlüssel', 'defaultWert');
  finally
    ini.Free;
    end;
end.					

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Ueberschrift: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Speichern: TButton;
    Ende: TButton;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    Label6: TLabel;
    Label8: TLabel;
    RadioGroup4: TRadioGroup;
    RadioGroup5: TRadioGroup;
    RadioGroup6: TRadioGroup;
    RadioGroup7: TRadioGroup;
    RadioGroup8: TRadioGroup;
    RadioGroup9: TRadioGroup;
    RadioGroup10: TRadioGroup;
    procedure EndeClick(Sender: TObject);
    procedure SpeichernClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.EndeClick(Sender: TObject);
begin
close
end;

procedure TForm1.SpeichernClick(Sender: TObject);

var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('Auswertung.ini');
dummy_inifile.writeboolean('Inifile_section','radiogroup1',radiogroup1.ItemIndex);
dummy_inifile.free;
end;

// Lesen:

var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('dateiname.ini');
radiogroup1.checked:=dummy_inifile.readboolean('Inifile_section','radiogroup1',false);
dummy_inifile.free;
end;					

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

unit Unit1;

interface

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



type
  TForm1 = class(TForm)
    Ueberschrift: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Speichern: TButton;
    Ende: TButton;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    Label6: TLabel;
    Label8: TLabel;
    RadioGroup4: TRadioGroup;
    RadioGroup5: TRadioGroup;
    RadioGroup6: TRadioGroup;
    RadioGroup7: TRadioGroup;
    RadioGroup8: TRadioGroup;
    RadioGroup9: TRadioGroup;
    RadioGroup10: TRadioGroup;
    procedure EndeClick(Sender: TObject);
    procedure SpeichernClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.EndeClick(Sender: TObject);
begin
close
end;

procedure TForm1.SpeichernClick(Sender: TObject);

var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('Auswertung.ini');
dummy_inifile.writeinteger('Inifile_section','radiogroup1',radiogroup1.ItemIndex);
dummy_inifile.free;
end;

// Lesen:

var
dummy_inifile:tinifile;
begin
dummy_inifile:=tinifile.create('dateiname.ini');
radiogroup1.itemindex:=dummy_inifile.readinteger('Inifile_section','radiogroup1',-1);
dummy_inifile.free;
end;
end.					

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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure Save(DateiName, Inhalt: String);  // Name ist einfach nur der Name der Datei inklusive Endung
                                            // Inhalt enthält alles, was gespeichert werden soll
var
  F: Textfile; 
  path: string;
begin
  path := ExtractFilePath(Application.ExeName);   // Ermittelt den Pfad der Exe-Datei 
  Assignfile(F, path + DateiName);                // Weißt F diese Datei zu (sie muss aber nicht vorhanden sein)
  if not FileExists(path + DateiName) then         // Wenn die Datei nicht existiert
    Rewrite(F)                                    // Wird sie erstellt und geöffnet zum Beschreiben
  else
    Reset(f);                                     // Öffnet die Datei zum Beschreiben (und Lesen)
  
  WriteLn(Inhalt);                                // Schreibt eine Zeile in die Textdatei mit dem Inhalt
  
  Closefile(f);                                   // Schließt den Prozess ab, da es sont Probleme beim Beenden des Programms gäbe
end;

function Read(DateiName: String): Array of String;
var
  F: Textfile;
  path: string;
  i: Integer;
begin
  path := ExtractFilePath(Application.ExeName);
  Assignfile(F, path + Dateiname);

  if not FileExists(path + Dateiname) then
    ShowMessage('Diese Datei existiert nicht!')

  else
    begin
    // FileMode := fmOpenRead;                      // Nicht notwendig, aber ist, glaub ich, nicht schlecht :P
    Reset(f);
    i := 0;
    while not EoF(F) do                             // Prüft, ob man in der letzten Zeile angelangt ist
      begin
      SetLength(Result, length(Result) + 1);        // Verlängert das dynamische array immer um einen Teil
      ReadLn(F, Result[i]);
      i := i + 1;                                   // bzw. Inc(i)
      end;
    Closefile(f);
    end;

end;