Save StringGrid Public Deklaration

[KodeZwerg]

Zitat von strom:

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.