Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
26. Apr 2014
ahh....das hatte ich übersehen...danke!!
Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
26. Apr 2014
ok habs hinbekommen...schreibmethode:
//schreiben
procedure TForm2.btnwriteClick(Sender: TObject);
const
IniSelRC = 'Sel1';
IniRowCount = 'RowCount';
IniColCount = 'ColCount';
IniFixedRows = 'FixRows';
IniFixedCols = 'FixCols';
Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
26. Apr 2014
hab jetzt auf verschiedene weisen rumprobiert aber ich kriege immer ne fehlermeldung...beim lesen aus der ini:
procedure TForm2.btnreadClick(Sender: TObject);
const
IniSelRC = 'Sel1';
IniRowCount = 'RowCount';
IniColCount = 'ColCount';
IniFixedRows = 'FixRows';
IniFixedCols = 'FixCols';
var
x, y: Integer;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
26. Apr 2014
ok..mit dieser änderung hab ichs hinbekommen das keine unnötigen leeren zeilen abgespeichert werden:
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'myinifile.ini');
try
for x := 2 to ColCount do
Ini.WriteString('Sel', IntToStr(x-1), Cols.CommaText);
finally
Ini.Free;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
25. Apr 2014
popovs code funktioniert schon sauber.^^ hab ich quasi übernommen
lesen:
procedure TForm2.btnreadClick(Sender: TObject);
var
x, y: Integer;
IniFile: String;
Ini: TIniFile;
begin
IniFile := ChangeFileExt(ParamStr(0), '.ini');
Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
25. Apr 2014
danke sir rufo!
var
Ini: TIniFile;
begin
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'myinifile.ini');
ini.EraseSection('sel');
ini.Free;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
25. Apr 2014
hallo!
danke für die hilfe euch allen!
und danke dir popov für deine mühe! ich wette du hast das wie ich dich kenne bei nem Käffchen und nem keks so nebenbei aus dem ärmel geschüttelt ;D
2 fragen habe ich noch...lesen/schreiben funktioniert dank deiner hilfe einwandfrei...ich nutze diesen code nun um während der laufzeit neue columns hinzuzufügen:
var
Column: Integer;
NewColumn:...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by rhodan,
25. Apr 2014
Hallo allerseits!
ich benutze folgende herangehensweise um meine INI file einzulesen ins Stringgrid:
Procedure InitGridFromINI(StrGrid:TStringGrid; Const Section:String; GridINI:TIniFile);
Var X:Integer;
Begin
With StrGrid Do
Begin
RowCount:=GridINI.ReadInteger(Section, 'RowCount', 0)+1;