ob ichs mache? naja meinetwegen
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
x,i:integer;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.cells[1,0]:='Name';
stringgrid1.cells[2,0]:='Vorname';
stringgrid1.cells[3,0]:='Punkte';
stringgrid1.cells[4,0]:='Prozente';
stringgrid1.cells[5,0]:='Note';
stringgrid1.cells[0,1]:='1';
stringgrid1.cells[0,2]:='2';
stringgrid1.cells[0,3]:='3';
stringgrid1.cells[0,4]:='4';
For i:=1 To StringGrid1.rowcount-1 Do
begin
x:=round((strtoint(stringgrid1.Cells[3,i])/25)*100);
stringgrid1.cells[4,i]:=inttostr(x)+'%';
case x of
0..12:stringgrid1.cells[5,i]:='6';
13..22:stringgrid1.cells[5,i]:='5-';
23..32:stringgrid1.cells[5,i]:='5';
33..42:stringgrid1.cells[5,i]:='5+';
43..48:stringgrid1.cells[5,i]:='4-';
49..54:stringgrid1.cells[5,i]:='4';
55..60:stringgrid1.cells[5,i]:='4+';
61..65:stringgrid1.cells[5,i]:='3-';
66..70:stringgrid1.cells[5,i]:='3';
71..75:stringgrid1.cells[5,i]:='3+';
76..80:stringgrid1.cells[5,i]:='2-';
81..85:stringgrid1.cells[5,i]:='2';
86..91:stringgrid1.cells[5,i]:='2+';
92..95:stringgrid1.cells[5,i]:='1-';
96..99:stringgrid1.cells[5,i]:='1';
100:stringgrid1.cells[5,i]:='1+';
end;
end;
end;
end.
hat was mit noten und prozente zu tun...schule halt
