Eli olen tekemässä edelleen tätä osoitekirjaa ja nyt ajattelin että haluaisin lisätä siine viellä puhelin numero kohdan. Kysymys kuuluu miten saan lisättyä numeron? Eli kun siinä on kohta jossa lukee ''Nimi'' ja sen vieressä tekstiboksi ''Edit1''. Sitten kun kirjotat nimen edit1 kohtaan ja pinat lisää nappia jonka jälkeen painat nimet nappia siellä pitäisi näkyä nimi jonka kirjotit edit1 kohtaan. Nyt pitäis tietää miten saan numeron samalla tavalla lisättyä. Tekstinlisäys koodi tässä:
procedure TForm1.Button2Click(Sender: TObject);
var a : integer;
begin
Canvas.Rectangle(10,200,600,500);
if (laskuri > 0) then
begin
for a := 1 to laskuri do Canvas.textout(50,200 15*a,taulu[a,1]);
end;
Mitä tosta pitäis muuttaa, että sais numeron toimimaan?
procedure TForm1.Button2Click(Sender: TObject);
var a : integer;
begin
Canvas.Rectangle(10,200,600,500);
if (laskuri > 0) then
begin
for a := 1 to laskuri do Canvas.textout(50,200 15*a,taulu[a,1]);
end;
Mitä tosta pitäis muuttaa, että sais numeron toimimaan?
Vastaukset 2
Vanhimmat
Stringgrid tai listview olisi kätsympi taulukkomuotoisen tiedon käsittelyyn.
Ehkäpä tämä auttaa vähän jyvälle pääsyä StringGrid:ssä
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.DefaultColWidth:=120;
StringGrid1.ColWidths[0]:=30;
StringGrid1.Cells[1,0]:='Nimi';
StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[1,1]:='Matti Niemi';
end;