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?
Numeroiden.....
lisäys.......
2
274
Vastaukset
- ...
Stringgrid tai listview olisi kätsympi taulukkomuotoisen tiedon käsittelyyn.
- postisähkö
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;
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 931494
- 741344
- 501267
Miltä se tuntuu
Miltä se tuntuu havahtua, että on ollut ihmistä kohtaan, joka on rakastanut ja varjellut, täysi m*lkku? Vai havahtuuko s1041168- 511145
SDP:n lyhyt selviytymisopas
1. Komitea on vastaus, oli kysymys mikä tahansa Jos maailma on muuttumassa tai jossain palaa, demari ei hätiköi. Ensin p9945- 36807
- 60751
- 49744
Mitä se olisi
Jos sinä mies saisit sanoa kaivatullesi mitä vain juuri nyt. Ilman mitään seuraamuksia yms. Niin mitä sanoisit?41715