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?

zusammenfalten · markieren

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;

Zitat von strom:

was ist falsch?

Wenn ich Raten müsste, benenne im Code Deine Aufrufe gemäß der Klasse wo Sie vorkommt.
Also aus procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName); ein procedure TForm4.SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName); machen, mit der Load genau so, dann sollte es klappen.

versuch es mal mit
TForm4.SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName); Gruß
K-H

P.S.
Da war jemand schneller

Zitat von strom:

möchte Load und Save StringGrid global halten.

zusammenfalten · markieren

Delphi-Quellcode:

  public
    { Public-Deklarationen }
  end;

  procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
  procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);

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;

Oder so um nur über Aufruf-Namen arbeiten zu können.

Hallo strom,

StringGrid bringt mit SaveToStream/LoadFromStrem oder SaveToFile/LoadFromFile einige Methoden für das speichern und laden von StringGrid-Daten mit.

Bis bald Chemiker