Zitat:
Zitat von Gun_der
Du musst dann z.B. bei einer tabelle soweit ich weiß jede einzelne Zelle Speichern.
|
Da hast du dein speichern.
so jetzt der Quellcode. Ganz wichtig: In die uses muss IniFiles.
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, Grids, StdCtrls, Buttons; //Inifiles
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
Edit1: TEdit;
Button1: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Ini: TIniFile;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); //Laden der IniDatei
begin
try
Ini:=TIniFile.Create('C:\Test.ini'); //Pfad der IniDatei
StringGrid1.Cells[1,1]:=Ini.Readstring('s1','z1','');//Zuweisung des Inhalts der ini
finally
Ini.free; //try-schleife zur sicherhiet....am ende wieder frei setzten
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject); //Speicherbutton
begin
try
Ini:=TIniFile.Create('C:\Test.ini'); //Erstellen der inidatei
Ini.WriteString('S1','z1',StringGrid1.Cells[1,1]); //zuweisung:Welche Zelle soll gespeichert werden
//s1 und z1 sind quasi Variablen die nur für die ini eine rolle spielen, kannst du dir dann direkt in der ini ansehen
finally
Ini.Free; //frei setzten
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,1]:=Edit1.Text; //den hab ich nur geschrieben um in die tabelle was reinzuschreiben
end; //war nur ein hilsmitten, nicht wichtig für die sache an sich
end.
Wie gesagt: du müsstest meines wissen jede einzenle Zelle speichern.
Viel Spaß damit