In Stringgrid per Schleife schreiben

[Repatilo]

ok vielen dank fürs 1. ...

Leider komme ich nicht wirklich weiter --- immerhinn habe ich Ihn mit dem letzten Beitrag soweit, die vorhandene Spalte nicht einfach zu überschreiben ... nur ... er zählt nicht weiter und schreibt dann in die nächste

Nur zur Erklärung - vorerst möchte ich, das das Programm erstmal nur den Text aus dem Edit2.Text (also buch.Titel) in den Stringgrid schreibt und dann eine Spalte weiter wandert und schaut ob diese leer ist. Rein zum Verständnis halt - wenn das erstmal klappt kann ich mir den rest hoffentlich selbst zusammen reimen

Hier der Quältext

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Edit6: TEdit;
    Label6: TLabel;
    Edit7: TEdit;
    Label7: TLabel;
    Edit8: TEdit;
    Label8: TLabel;
    Edit9: TEdit;
    Label9: TLabel;
    Edit10: TEdit;
    Label10: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TBuch = class
    public
    Buchnummer,Erscheinungsjahr:integer;
    Titel,Autor,Verlag,Auflage:string;
    function buchangaben:string;
    end;

  TUnterhaltungsliteratur = class (TBuch)
    public
    Inhaltsangabe:string;
    function Unterhaltungsliteraturangaben:string;
    end;

  TFachbuecher = class (TBuch)
    public
    Schlagworte:string;
    function Fachbuchangaben:string;
    end;

  TSchulbuecher = class (TBuch)
    public
    Klassenstufe:string;
    function Schulbuchangaben:string;
    end;

  TAusleihe = class (TBuch)
    public
    Name,Vorname,Klasse:string;
    function Ausleihangaben:string;
    end;

var
  Form1: TForm1;
  Buch:TBuch;
  Unterhaltungsliteratur:TUnterhaltungsliteratur;
  Fachbuecher:TFachbuecher;
  Schulbuecher:TSchulbuecher;
  Ausleihe:TAusleihe;
  Stringgrid1:TStringGrid;
  i:Integer;
  x:Integer;

  Buchangaben,Unterhaltungsangaben,Fachbuchangaben,Schulbuchangaben,
  Ausleihangaben:string;

implementation

{$R *.dfm}

function TBuch.buchangaben:string;
  begin

  end;

function TUnterhaltungsliteratur.Unterhaltungsliteraturangaben:string;
  begin

  end;

function TFachbuecher.Fachbuchangaben:string;
  begin

  end;

function TSchulbuecher.Schulbuchangaben:string;
  begin

  end;

function TAusleihe.Ausleihangaben:string;
  begin

  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    buch:=TBuch.Create;
    Unterhaltungsliteratur:=TUnterhaltungsliteratur.Create;
    Fachbuecher:=TFachbuecher.Create;
    Schulbuecher:=TSchulbuecher.Create;
    Ausleihe:=TAusleihe.Create;
    buch.Buchnummer:=strtoint(edit1.text);
    buch.Erscheinungsjahr:=strtoint(edit6.Text);
    buch.Titel:=(edit2.Text);
    buch.Autor:=(edit3.text);
    buch.Verlag:=(edit4.Text);
    buch.Auflage:=(edit5.Text);
    Unterhaltungsliteratur.Inhaltsangabe:=(edit7.Text);
    Fachbuecher.Schlagworte:=(edit8.Text);
    Schulbuecher.Klassenstufe:=(edit9.Text);

     for x:=1 to Stringgrid1.RowCount-1 do
  if Stringgrid1.Cells[i,x]='' then
    stringgrid1.Cells[i,x]:=buch.Titel;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  halt;
end;

end.