Save StringGrid Public Deklaration

[strom]

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;

[KodeZwerg]

Zitat:

Zitat von strom (Beitrag 1409824)

was ist falsch?

Wenn ich Raten müsste, benenne im Code Deine Aufrufe gemäß der Klasse wo Sie vorkommt.
Also aus

Delphi-Quellcode:

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

ein

Delphi-Quellcode:

procedure TForm4.SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);

machen, mit der Load genau so, dann sollte es klappen.

[p80286]

versuch es mal mit

Delphi-Quellcode:

TForm4.SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);

Gruß
K-H

P.S.
Da war jemand schneller

[KodeZwerg]

Zitat:

Zitat von strom (Beitrag 1409824)

möchte Load und Save StringGrid global halten.

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.

[Chemiker]

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