Hallo,
möchte Load und Save StringGrid global halten.
Bekomme immer die Fehlermeldung:
[dcc32 Fehler] LOGDATA.pas(26): E2065 Ungenügende Forward- oder External-Deklaration: 'TForm4.LoadStringGrid'
was ist falsch?
Delphi-Quellcode:
public
{ Public-Deklarationen }
procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
uses LOGIN, HAUPTFORM, BEENDEN;
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
Writeln(f, ColCount);
Writeln(f, RowCount);
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Trim(Cells[i, k]));
end;
CloseFile(F);
end;