Hier ist nochmal der Code Abschnitt
Delphi-Quellcode:
type
Bearbetien1: TMenuItem;
Speichern1: TMenuItem;
SaveDialog1: TSaveDialog;
N3: TMenuItem;
TSaveOption = (soSaveCols, soExcludeFixed); // Hier der Fehler
TSaveOptions = set of TSaveOption;
procedure ffnen1Click(Sender: TObject);
procedure Druckereinstellungen1Click(Sender: TObject);
procedure Drucken1Click(Sender: TObject);
Fehlermeldung lautet: ':' erwartet, aber '=' gefunden. Hab schon ausprobiert es mit den "Anweisungen" der Fehlermeldungen zu lösen aber irgendwann wirds einfach nurnoch schräg. Auserdem Merkwürdig ist das mir die Meldungen die sich auf den Teil beziehen mir in Fenstern ausgegeben werden, die anderen aber nicht :/
Und hier nochmal der gesamte Ausschnitt mit dem es zusammenhängt.
Delphi-Quellcode:
type
TSaveOption = (soSaveCols, soExcludeFixed);
TSaveOptions = set of TSaveOption;
procedure SaveGrid(sg: TStringGrid; s: TStream; so: TSaveOptions = []);
var
iLow, iHigh, i: Integer;
ss: TStringStream;
bSaveCols, bExcludeFixed: Boolean;
begin
ss := TStringStream.Create('');
with sg do
begin
bSaveCols := soSaveCols in so;
bExcludeFixed := soExcludeFixed in so;
if bSaveCols then
begin
iLow := IfThen(bExcludeFixed, FixedCols);
iHigh := Pred(ColCount);
end else
begin
iLow := IfThen(bExcludeFixed, FixedRows);
iHigh := Pred(RowCount);
end;
for i := iLow to iHigh do
begin
ss.Size := 0;
if bSaveCols
then ss.WriteString(Cols[i].CommaText + sLineBreak)
else ss.WriteString(Rows[i].CommaText + sLineBreak);
ss.Position := 0;
s.CopyFrom(ss, ss.Size);
end;
end;
ss.Free;
end;
mfg
Alex