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

255

    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. Sä olet epävakaa

      tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all
      Ikävä
      46
      2075
    2. Mieti miten paljon yritin

      Löytää yhteyttä kanssasi uudelleen sen väärinymmärryksen jälkeen. Koen etten tullut puoleltasi hyvin kohdelluksi mies😔
      Ikävä
      57
      1829
    3. Kurkkiiko myyrä jo

      Milloin tulee kolostaan?
      Ikävä
      36
      1534
    4. Yksi viesti häneltä ja ottaisin takaisin

      Mutta ei sitä tule. Ja ehkä parempi niin, tein jo valintani. En saanut häneltä tarpeeksi, kaikki muu meni minun edelle j
      Ikävä
      33
      1479
    5. Kaikki on hyvin rakkaani

      Ja tulee olemaan.
      Ikävä
      78
      1238
    6. En enää uskalla laittaa sulle viestiä

      Naiselta miehelle ****
      Ikävä
      62
      1139
    7. Keskisarjan puheet

      Onko kansanedustajan sopivaa puhua tuollai vai pitäisikkö potkia pois eduskunnasta?
      Suomussalmi
      191
      989
    8. En ikinä koskaan

      En tule ikinä hyväksymään!
      Tunteet
      58
      953
    9. Sovitaanko ja halataanko?

      Pyydetään toisiltamme anteeksi...❤️
      Ikävä
      49
      913
    10. Olen selvästi rikki

      Narsistiset ihmiset jotenkin koukuttaa minut.
      Ikävä
      24
      904
    Aihe