Einzelnen Beitrag anzeigen

strom

Registriert seit: 23. Aug 2008
Ort: Keine Ergebnisse gefunden
290 Beiträge
 
#1

Save StringGrid Public Deklaration

  Alt 5. Aug 2018, 11:13
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;
  Mit Zitat antworten Zitat