AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

speichern und laden eines stringgrid

Ein Thema von herrentor · begonnen am 31. Mai 2004 · letzter Beitrag vom 31. Mai 2004
 
herrentor

Registriert seit: 29. Mai 2004
Ort: Emden
158 Beiträge
 
#1

speichern und laden eines stringgrid

  Alt 31. Mai 2004, 05:41
ich hab ein problem mit dem speichern und laden eines stringgrids. hier zeigt er die fehler (ungenügende forward- oder external-deklaration:'TForm1.LoadTab') und
(ungenügende forward- oder external-deklaration:'TForm1.LoadTab') an.

Code:

type
 TForm1 = class(TForm)
  procedure LoadTab(Sender: TObject; const FileName: TFileName);
  procedure OeffnenClick(Sender: TObject);
  procedure SaveTab(Sender: TObject; const FileName: TFileName);
  procedure Speichern1Click(Sender: TObject);
fürs speichern:

Code:

procedure SaveTab(Tab: TStringGrid; const FileName: TFileName);
var
  f:   TextFile;
  i, k: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);
  with Tab do
  begin
    // Write number of Columns/Rows
    Writeln(f, ColCount);
    Writeln(f, RowCount);
    // loop through cells
    for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
        Writeln(F, Cells[i, k]);
  end;
  CloseFile(F);
end;

procedure TForm1.Speichern1Click(Sender: TObject);
begin
 SaveTab(Tab, 'c:\grid.txt');
end;
und fürs laden:

Code:

procedure LoadTab(Tab: TStringGrid; const FileName: TFileName);
var
  f:         TextFile;
  iTmp, i, k: Integer;
  strTemp:   String;
begin
  AssignFile(f, FileName);

  with Tab do
  begin
    // Get number of columns
    Readln(f, iTmp);
    ColCount := iTmp;
    // Get number of rows
    Readln(f, iTmp);
    RowCount := iTmp;
    // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
      for k := 0 to RowCount - 1 do
      begin
        Readln(f, strTemp);
        Cells[i, k] := strTemp;
      end;
  end;
  CloseFile(f);
end;

procedure TForm1.OeffnenClick(Sender: TObject);
begin
 LoadTab(Tab, 'c:\grid.txt');
end;
was ist da los?

danke im voraus.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz