Ongelmia stringien kanssa

MiTen se nyt On

Miten merkkijonoluettelo pitäisi tuoda näihin monirivisiin käyttöliittymäkomponentteihin. xx.AddStrings( ) ? xx.Assign( )? xx.text := vai joku muu? (Miksi tämä) Olisi hienoa jos olisi pieni selventävä esimerkki myös

3

819

    Vastaukset 3

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • example_dk6

      Eli jos nyt oikein ymmärsin kysymyksesi, niin alla oletettava vastaus: procedure TForm1.Button1Click(Sender: TObject); var sl : TStringList; begin sl := TStringList.Create; try sl.Add('1'); sl.Add('2'); sl.Add('3'); //Memo1.Lines.AddStrings(TStrings(sl)); //Memo1.Lines.Assign(sl); //Memo1.Lines.Text := sl.Text; finally sl.free; end; end; Vaihtoehdot kommentoituna, onnistuu vielä eri tavoinkin, mutta tuskinpa tarvitset lisää esimerkkejä.

      • high power

        Eri vaihtoehtoja on tarjolla mutta onko näiden suorituskyvyssä eroja ?


      • Delphiguru
        high power kirjoitti:

        Eri vaihtoehtoja on tarjolla mutta onko näiden suorituskyvyssä eroja ?

        Ensinnäkin:

        nopeuden maksimomiseksi, tee näin:

        guiComponent.addStrings(SomeStrings);

        eityisesti TMemo:on lisäys saattaa olla nopein näin:

        memo1.Text := memo1.Text ^M^J SomeStrings.Text;

        jos lisäät "käsin" yksittäisiä merkkijonoja, niin:

        guiComponent.BeginUpdate;
        try

        // lisää 1 tai useampia merkkijonoja tässä, esim: guiComponent.Lines.Add('jotakin');

        finally

        guiComponent.EndUpdate;

        end;


        tuo addStrings -metodi kutsuu sisäisesti BeginUpdate / EndUpdate -paria nopeuden maksimoimiseksi.

        huomaa myös: vanhoissa Win95/Win98/winME -käyttöjärjestelmissä niin memoissa kuin TListBoxeissakin on maksimi rivi/merkkimääräraja aika alhaalla.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mikä sun salaisuus on,kun näytät niin nuorelta..

      Vaikka oot jo noin vanha!?
      Ikävä
      113
      1403
    2. MiltäKaivattusi

      Näyttää? !
      Ikävä
      45
      921
    3. Myönnetään, tunnen lämpimiä tunteita kohtaasi

      Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....
      Ikävä
      50
      746
    4. Perhoseni (miehelle)

      Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r
      Ikävä
      133
      704
    5. Mitä meidän välillämme

      On käynyt näiden vuosien aikana?
      Ikävä
      70
      676
    6. Uskaltaisitko

      Tavata kaivattusi tässä tilanteessa?
      Ikävä
      67
      626
    7. Olen tavattavissa

      tänään klo 17-02 siinä ravintolassa. Tulethan sinäkin?
      Ikävä
      53
      607
    8. Halaus juuri sinulle

      Kaikki järjestyy kyllä. Luota vain. ❤️🫶
      Ikävä
      55
      565
    9. Onko Sofia jälleen jätetty?

      Moni asia viittaisi siihen, että hän on jälleen sinkku.
      Kotimaiset julkkisjuorut
      109
      523
    10. Mies, näetkö minut myös

      Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?
      Ikävä
      20
      500
    11. Rekat seisovat dieselin hinnan takia . Ala ei kestä tällaista hintatasoa, sanoo yrittäjä .

      EU:n kallein diesel on kova paikka kuljetusalalle. Ajoja on jätetty ajamatta kannattavuus­ongelmien vuoksi, sanoo alan e
      Kajaani
      101
      485
    12. Voiko se ikinä toimia

      Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het
      Ikävä
      32
      478
    13. Meneekö unohtamis

      Projektisi hyvin??
      Ikävä
      34
      477
    14. Kuka se on

      Kuhmon komein aikamies?
      Kuhmo
      5
      468
    15. Nainen, mitä mieltä olet kodittomista?

      Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?
      Ikävä
      118
      466
    16. Voin tulla

      Sisustamaan sulle 🤭
      Ikävä
      52
      462
    17. Mitä jos...

      Susta tykätään poikana enemmän, kun tyttönä? Miten asian käsittelet tai otat tiedon vastaan? T nainen gubetellija herät
      Sinkut
      142
      453
    18. Uskallatko paljastaa

      Millä nimellä löydyn puhelimestasi?
      Ikävä
      49
      447
    19. Et sinä mitään

      Oikeasti halua
      Ikävä
      52
      413
    20. Miksi jätit vastaamatta mies

      Silloin kauan sitten 😔
      Ikävä
      42
      410
    Aihe