[Delphi-Anfänger] Tabellenzuweisung

Sausack86

Grünschnabel
Hallo erstmal.
Ich bräuchte etwas Hilfe von euch.
Ich möchte ein Objekt, welches drei Felder hat einer Tabelle zuweisen.
Also wie beim Schiffe versenken....wie mache ich das?
 
Meinst du so etwas?

Code:
type
  TMyObject := class(TObject)
    private
      Data1: Integer;
      Data2: Integer;
      Data3: Integer;
end;

var
  wasweissich: array[0..100] of TMyObject;
 
Ok das vorige Problem hatte sich erledigt, aber habe nun wieder eine neue Aufgabe für euch.
Finde hier den Fehler nicht....er möchte den eingegebenen Wert nicht in der Tabelle (rechts) ausgeben.

PHP:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    StringGrid2: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
      private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  sfeld:ARRAY[1..10, 1..10]of String;



implementation

{$R *.dfm}




procedure TForm1.FormCreate(Sender: TObject);
var y,m,i:Integer;
begin
Stringgrid2.cells[1,0]:='1';
Stringgrid2.cells[2,0]:='2';
Stringgrid2.cells[3,0]:='3';
Stringgrid2.cells[4,0]:='4';
Stringgrid2.cells[5,0]:='5';
Stringgrid2.cells[6,0]:='6';
Stringgrid2.cells[7,0]:='7';
Stringgrid2.cells[8,0]:='8';
Stringgrid2.cells[9,0]:='9';
Stringgrid2.cells[10,0]:='10';

Stringgrid2.cells[0,1]:='11';
Stringgrid2.cells[0,2]:='12';
Stringgrid2.cells[0,3]:='13';
Stringgrid2.cells[0,4]:='14';
Stringgrid2.cells[0,5]:='15';
Stringgrid2.cells[0,6]:='16';
Stringgrid2.cells[0,7]:='17';
Stringgrid2.cells[0,8]:='18';
Stringgrid2.cells[0,9]:='19';
Stringgrid2.cells[0,10]:='20';

Stringgrid1.cells[1,0]:='1';
Stringgrid1.cells[2,0]:='2';
Stringgrid1.cells[3,0]:='3';
Stringgrid1.cells[4,0]:='4';
Stringgrid1.cells[5,0]:='5';
Stringgrid1.cells[6,0]:='6';
Stringgrid1.cells[7,0]:='7';
Stringgrid1.cells[8,0]:='8';
Stringgrid1.cells[9,0]:='9';
Stringgrid1.cells[10,0]:='10';

Stringgrid1.cells[0,1]:='11';
Stringgrid1.cells[0,2]:='12';
Stringgrid1.cells[0,3]:='13';
Stringgrid1.cells[0,4]:='14';
Stringgrid1.cells[0,5]:='15';
Stringgrid1.cells[0,6]:='16';
Stringgrid1.cells[0,7]:='17';
Stringgrid1.cells[0,8]:='18';
Stringgrid1.cells[0,9]:='19';
Stringgrid1.cells[0,10]:='20';

//Stringgrid1.cells[9,10]:='9';
//Stringgrid1.cells[8,10]:='10';
y:=1;
m:=1;

For i:=1 to 10 do
begin
sfeld[1][y]:=Stringgrid1.cells[1,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[2][y]:=Stringgrid1.cells[2,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[3][y]:=Stringgrid1.cells[3,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[4][y]:=Stringgrid1.cells[4,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[5][y]:=Stringgrid1.cells[5,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[6][y]:=Stringgrid1.cells[6,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[7][y]:=Stringgrid1.cells[7,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[8][y]:=Stringgrid1.cells[8,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[9][y]:=Stringgrid1.cells[9,m];
y:=y+1;
m:=m+1;
end;

y:=1;
m:=1;
For i:=1 to 10 do
begin
sfeld[10][y]:=Stringgrid1.cells[10,m];
y:=y+1;
m:=m+1;
end;

//Label1.Caption:=IntToStr(StrToInt(sfeld[9][10]));
end;

procedure TForm1.Button4Click(Sender: TObject);
var vz,vb,vx:integer;

begin
vx:=16;

vz:=StrToInt(Edit3.Text);
vb:=StrToInt(Edit4.Text);
//sfeld[ vz ][ vb ]:=IntToStr(vx);
Stringgrid1.cells[1,11]:="böm";


end;

end.
 
Wer ist "er"? Der Computer? Der Compiler? Das Programm?

den eingegebenen Wert
Welchen eingegebenen Wert? Ich habe in dem von dir geposteten Code-Wust vier Editfelder ausmachen können (sind evtl. nicht alle). Von zweien von denen werden die Werte angezogen. Aber es wird nichts in deine Tabelle (ist es das Grid?) übertragen, sprich es gibt außer der Initialisierung keine Anweisungen dafür. Zumindest habe ich keine finden/sehen können.

nicht in der Tabelle (rechts) ausgeben.
"Rechts" habe ich hier auf der Website eine Leiste, wo ich u.a. die Neuigkeiten im Showroom sehe. Andere Leute haben da evtl. ihren Taskbar. Also was meinst du mit "rechts"?

Wenn du dich etwas genauer ausdrücken kannst, wo genau dein Problem liegt (und das bitte ohne einfach mal zig Seiten unformatierten, undokumentierten Sourcecode hier in's Forum zu "rotzen"), dann kann ich dir vielleicht auch weiterhelfen.
 
Zurück