mmh mein letztes posting ist gar nicht übernommen worden ... egal also nochmal :
habe problem mit nem tstringstream ...
also habe folgenden code
die proc speichert ohne problem die positionen der columns in der registry ..
procedure Tfrm_dta.saveColumnPositions;
var myStream : TStringStream;
s : String;
begin
myStream := TStringStream.Create(s);
DBGrid1.Columns.SaveToStream(myStream);
saveConfig('display','dta_columns',myStream.DataSt ring);
end;
die hier sollte das eigentlich auslesen und wieder zurückschreiben ... aber macht es nit ... das ergebnis von readConfig ist korrekt aber beim loadfromfile aus dem stream sagt er mir nen stream-read-error und es ist irgendwie nix im datastring ... was tun ?
function Tfrm_dta.loadColumnPositions : TStringStream;
var myStream : TStringStream;
s : string;
begin
myStream := TStringStream.create(s);
myStream.seek(0, soFromBeginning);
myStream.WriteString(readConfig('display','dta_col umns'));
DBGrid1.Columns.LoadFromStream(myStream);
end;
habe problem mit nem tstringstream ...
also habe folgenden code
die proc speichert ohne problem die positionen der columns in der registry ..
procedure Tfrm_dta.saveColumnPositions;
var myStream : TStringStream;
s : String;
begin
myStream := TStringStream.Create(s);
DBGrid1.Columns.SaveToStream(myStream);
saveConfig('display','dta_columns',myStream.DataSt ring);
end;
die hier sollte das eigentlich auslesen und wieder zurückschreiben ... aber macht es nit ... das ergebnis von readConfig ist korrekt aber beim loadfromfile aus dem stream sagt er mir nen stream-read-error und es ist irgendwie nix im datastring ... was tun ?
function Tfrm_dta.loadColumnPositions : TStringStream;
var myStream : TStringStream;
s : string;
begin
myStream := TStringStream.create(s);
myStream.seek(0, soFromBeginning);
myStream.WriteString(readConfig('display','dta_col umns'));
DBGrid1.Columns.LoadFromStream(myStream);
end;