Numeroiden.....

lisäys.......

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?

2

249

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ...

      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

    1. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      204
      7175
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      163
      2170
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1758
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1440
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      65
      1393
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      57
      1196
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      102
      1135
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      7
      1076
    9. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      1029
    10. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      259
      1003
    Aihe