popovs code funktioniert schon sauber.^^ hab ich quasi übernommen
lesen:
Delphi-Quellcode:
procedure TForm2.btnreadClick(Sender: TObject);
var
x, y: Integer;
IniFile: String;
Ini: TIniFile;
begin
IniFile := ChangeFileExt(ParamStr(0), '.ini');
with strgrid do
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'myinifile.ini');
try
for x := 0 to ColCount do
strgrid.
Cols[x].CommaText := Ini.ReadString('Sel', IntToStr(x), '');
finally
Ini.Free;
end;
end;
end;
schreiben:
Delphi-Quellcode:
procedure TForm2.btnwriteClick(Sender: TObject);
var
x, y: Integer;
IniFile: String;
Ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'myinifile.ini');
ini.EraseSection('sel');
ini.Free;
with strgrid do
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'myinifile.ini');
try
for x := 0 to ColCount do
Ini.WriteString('Sel', IntToStr(x), Cols[x].CommaText);
finally
Ini.Free;
end;
end;
end;
columns zur runtime erzeugen:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
Column: Integer;
NewColumn: Integer;
begin
StrGrid.ColCount := StrGrid.ColCount + 1;
for Column := StrGrid.ColCount - 1 downto NewColumn do
StrGrid.Cols[Column].Assign(StrGrid.Cols[Column - 1]);
StrGrid.Cols[NewColumn - 1].Text := '';
end;
wobei mir auffällt das in der ini immer EINE column mehr erzeugt wird bzw abgespeichert wird als tatsächlich existieren..also wenn ich 3 in der runtime habe und speichere wird in der ini eine vierte erzeugt "4=,," die leer ist