Hallo,
ich habe auf einer Registerkarte eines TPageControl ein TStringgrid positioniert.
Nun bekomme ich jedesmal, wenn ich Eigenschaften des Grids aufrufen möchte eAccessViolations.
Das Grid ist nicht zur Laufzeit erstellt, womit ich davon ausgehe dass ich es nicht als Istanz initiieren muss.
Hier die hauptsächliche betroffene Prozedur:
Delphi-Quellcode:
procedure TFormSettings.setIdentifiers;
var
i, ZeilenanzahlBuerger, ZeilenAnzahlWirtschaft : Integer;
Datei: TStringList;
begin
Datei:=TStringList.Create;
Datei.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'identifiers.txt');
splitString(Datei.Strings[0],';',IdentifierNameW);
splitString(Datei.Strings[1],';',IdentifierZeilenNrW);
splitString(Datei.Strings[2],';',IdentifierAusdruckW);
splitString(Datei.Strings[3],';',IdentifierName);
splitString(Datei.Strings[4],';',IdentifierZeilenNr);
splitString(Datei.Strings[5],';',IdentifierAusdruck);
ZeilenanzahlBuerger := StringGridBuerger.ColCount;
ZeilenanzahlWirtschaft := StringGridWirtschaft.ColCount;
for i:= 0 to ZeilenanzahlBuerger-1 do
begin
IdentifierName.Strings[i] := FormSettings.StringGridBuerger.Cells[i, 0];
IdentifierAusdruck.Strings[i] := FormSettings.StringGridBuerger.Cells[i, 2];
IdentifierZeilenNr.Strings[i] := FormSettings.StringGridBuerger.Cells[i, 1];
end;
for i:= 0 to ZeilenanzahlWirtschaft-1 do
begin
IdentifierNameW.Strings[i] := FormSettings.StringGridWirtschaft.Cells[i, 0];
IdentifierAusdruckW.Strings[i] := FormSettings.StringGridWirtschaft.Cells[i, 2];
IdentifierZeilenNrW.Strings[i] := FormSettings.StringGridWirtschaft.Cells[i, 1];
end;
Datei.Free;
end;
..... - Kurt - .....