Einzelnen Beitrag anzeigen

KosMottchen

Registriert seit: 4. Mär 2006
34 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: StringGrid Funktionen

  Alt 26. Mai 2006, 16:19
habs ma im anhang... den rest, den müsst dir wer anders erläutern

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer; // i muss integer sein, also ganze zahlen
begin
  with form1.stringgrid1 do
   for i:=1 to rowcount -1 do // for-schleife
    cells[0,i]:=inttostr(i); // zahlen bis zum ende (rowcount) schreiben lassen
end;

procedure TForm1.FormCreate(Sender: TObject); // tabellenkopf beschriften
begin
 with Form1.StringGrid1 do begin
  cells[0,0]:='Zahl';
  cells[1,0]:='blubb';
end;
end;
end.

oder hier ma nen beispiel, wo man das gut erkennt... das is nen notenberechner, den wir ma in der schule gemacht haben.

da kann man schön dran lernen, wie des funzt
Angehängte Dateien
Dateityp: rar sg_209.rar (187,4 KB, 11x aufgerufen)
Dateityp: rar notenberechnung_-_doppelte_verzweigung_mit_stringgrid_105.rar (196,2 KB, 11x aufgerufen)
  Mit Zitat antworten Zitat