Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
type
TMyObject := class(TObject)
private
Data1: Integer;
Data2: Integer;
Data3: Integer;
end;
var
wasweissich: array[0..100] of TMyObject;
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?er möchte...
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.den eingegebenen Wert
"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"?nicht in der Tabelle (rechts) ausgeben.