Taulukon reversointi Delphissä

Anonyymi

Hei!
Osaako kukaan neuvoa, miksi alla oleva proceduuri ei palauta oikein reversoitua taulukkoa seuraavassa koodin pätkässä? Proceduuri reversoi ok, mutta tulos ei välity proceduurin ulkopuolelle. Missä vika..?


//Delphi-Koodi alkaa:

var

Form1: TForm1;
procedure reversoi(strtaulu : array of string; max : integer);

implementation

{$R *.dfm}

procedure reversoi(strtaulu : array of string; max : integer);
var valitaulu : array of string;
var n, laskuri : integer;

begin
setlength(valitaulu, max);
laskuri := 0;

for n := max-1 downto 0 do
begin
valitaulu[laskuri] := strtaulu[n];
laskuri := laskuri 1;
end;

for n := 0 to max-1 do

begin
strtaulu[n] := valitaulu[n];
end;

end;



procedure TForm1.Button1Click(Sender: TObject);
var strtaulu : array of string;
var n, max : integer;

begin
max := 4;
setlength(strtaulu, max);

for n := 0 to max-1 do
begin
strtaulu[n] := inttostr(n);
Memo1.seltext := strtaulu[n] #13 #10;
end;

Memo1.seltext := #13 #10;

//-------------------------
reversoi(strtaulu, max);
//-------------------------
//Järjestys ei muuttunutkaan, missä vika?

for n := 0 to max-1 do
begin
Memo1.seltext := strtaulu[n] #13 #10;
end;

Memo1.seltext := #13 #10;

end;

end.

//Koodi päättyy.

9

359

    Vastaukset 9

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Tätäkö hait?

      for n := max-1 downto 0 do
      begin
         Memo1.seltext := strtaulu[n] #13 #10;
      end;

    • Anonyymi

      Nuo Memo-tulostukset oli havainnollistamisen vuoksi. Täsmälleen sama tulostus pitäisi tuottaa reversointi -Proceduren ajon jälkeen päinvastainen eli reversoitu järjestys. Procedure kyllä tekee hommansa, mutta taulukon muutos ei välity proceduurin ulkopuolelle takasin. Kutsussa välitetyn taulukon järjestyksen pitäisi muuttua päinvastaiseksi aliohjelman ajon jälkeen. Mutta ei muutu...

      • Anonyymi

        Joo, nyt tajusin, tätä sinä halusit:

        var
        Form1: TForm1;
        taulu: array [0..3] of string = ('1','2','3','4');

        implementation

        {$R *.lfm}

        procedure reversoi;
        var max, n: integer; temp: string;
        begin
        max := length(taulu) - 1;
        for n := 0 to max div 2 do
        begin
        temp := taulu[n];
        taulu[n] := taulu[max - n];
        taulu[max - n] := temp;
        end;
        end;

        { TForm1 }

        procedure TForm1.Button1Click(Sender: TObject);
        var n, max : integer;
        begin
        Memo1.Clear;
        reversoi;
        max := length(taulu) - 1;
        for n := 0 to max do Memo1.seltext := taulu[n] #13 #10;
        end;
        end.


    • Anonyymi

      Onko sinulla jotain helppoa valmista ohjelmaa esitellä, tarvittaisiin ideoita.

    • Anonyymi

      Kiitos vaivannäöstä, mutta oikeasti tarkoitus on siis luoda dynaaminen taulukko, jonka sisältöä muokataan, aliohjelmalla. Ongelma on tässä siis, että aliohjelmasta ei saa palautettua muutettua taulukkoa. En ymmärrä, mikä tässä mättää, aikaisemmin tämä on onnistunut (Delphi 10.3), onko 10.4-versioon tullut muutoksia vai olenko vain missannut jotain. Tätä ei voine hoitaa funktiona, koska funktio ei voi palauttaa taulukkoa...?

      • Anonyymi

        Tässä luodaan taulukko (Array) mikäli elementtien määrä sitä edellyttää, muussa tapauksessa taulukon sisältöä käännellään edestakasin.

        type
        TStringArray = array of string;

        var
        Form1: TForm1;
        MyArray: TStringArray;

        implementation

        {$R *.lfm}

        function reversoi(taulu:TStringArray): TStringArray;
        var max, n: integer; temp: string;
        begin
        max:=length(taulu) - 1;
        for n:=0 to max div 2 do
        begin
        temp:=taulu[n]; taulu[n]:=taulu[max-n]; taulu[max-n]:=temp;
        end;
        result:=taulu;
        end;

        { TForm1 }

        procedure TForm1.Button1Click(Sender: TObject);
        var n, Count : integer;
        begin
        Memo1.Clear; Count := 6;
        if length(MyArray)<1 then
        BEGIN
        setLength(MyArray, Count);
        for n:=0 to Count-1 do MyArray[n]:=IntToStr(n);
        END;

        MyArray:=reversoi(MyArray); Memo1.seltext:=#13 #10;
        for n:=0 to length(MyArray)-1 do Memo1.seltext:=MyArray[n] #13 #10;
        end;


      • Anonyymi

        Tässä on täysin sama esimerkki kuin yläpuolella, mutta tästä on otettu kaikki löysät pois, ja samalla meni luettavuuskin, mutta toimii yhtä hienosti.

        type TStringArray=array of string;var Form1:TForm1;
        MyArray: TStringArray; implementation {$R *.lfm}
        function reversoi(taulu:TStringArray): TStringArray;
        var max, n: integer; temp: string; begin max:=length(taulu) - 1;
        for n:=0 to max div 2 do begin temp:=taulu[n]; taulu[n]:=taulu[max-n];
        taulu[max-n]:=temp;end;result:=taulu;end;{ TForm1 }
        procedure TForm1.Button1Click(Sender: TObject);var n,Count:integer;begin
        Memo1.Clear; Count:=6; if length(MyArray)<1 then BEGIN
        setLength(MyArray,Count);for n:=0 to Count-1 do MyArray[n]:=IntToStr(n);
        END;MyArray:=reversoi(MyArray);Memo1.seltext:=#13 #10;
        for n:=0 to length(MyArray)-1 do Memo1.seltext:=MyArray[n] #13 #10;end;end.


      • Anonyymi
        Anonyymi kirjoitti:

        Tässä on täysin sama esimerkki kuin yläpuolella, mutta tästä on otettu kaikki löysät pois, ja samalla meni luettavuuskin, mutta toimii yhtä hienosti.

        type TStringArray=array of string;var Form1:TForm1;
        MyArray: TStringArray; implementation {$R *.lfm}
        function reversoi(taulu:TStringArray): TStringArray;
        var max, n: integer; temp: string; begin max:=length(taulu) - 1;
        for n:=0 to max div 2 do begin temp:=taulu[n]; taulu[n]:=taulu[max-n];
        taulu[max-n]:=temp;end;result:=taulu;end;{ TForm1 }
        procedure TForm1.Button1Click(Sender: TObject);var n,Count:integer;begin
        Memo1.Clear; Count:=6; if length(MyArray)<1 then BEGIN
        setLength(MyArray,Count);for n:=0 to Count-1 do MyArray[n]:=IntToStr(n);
        END;MyArray:=reversoi(MyArray);Memo1.seltext:=#13 #10;
        for n:=0 to length(MyArray)-1 do Memo1.seltext:=MyArray[n] #13 #10;end;end.

        Toimii! Eli ratkaisu oli siis tuon TStringArray:n käyttö, jolloin funktiosta saattoi palauttaa muokatun taulukon. Kiitos!


    • Anonyymi

      procedure reversoi(strtaulu : array of string; max : integer);

      tyypillinen aloittelijan virhe.

      JOS muutosten halutaan näkyvän tuon "procedure reversoi":n ulkopuolelle, oikein olisi:

      procedure reversoi(var strtaulu : array of string; max : integer);

      ilman tuota var -määritettä tuo "procedure reversoi" muokkaa srttaulu:n paikallista kopiota, joka lakkaa olemasta, kun procedure reversoi palaa kutsujalleen!

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

    Luetuimmat keskustelut

    1. Ampuminen kylpylässä

      Onko vornasen timbe käynyt hiukan kylpemässä vai mikä tämä ampumatapaus on kylpylässä? Tuntuu aika villi meno olevan naa
      Naantali
      105
      2354
    2. Kemijärvellä vesionnettomuus

      Pitkänsillan ja taiteilijanniemen välillä nähty henkilön painuvan veden alle. Mitä on tapahtunut? Onko vesihiisi taas as
      Kemijärvi
      42
      1618
    3. 115
      1158
    4. Hei, voitko kuunnella

      Voisitko auttaa minua selvittämään asioita? En halua ajaa sinua hulluuteen kanssani, en sitoa sinua, en esittää vaatimu
      Ikävä
      141
      1149
    5. Joku porukka lähtenyt täältä

      Ihmeen hiljainen on palsta nyt. Yleensä tänne tulvii aloituksia yms, mutta nyt on kyllä erikoisen hiljaista.
      Ikävä
      232
      1068
    6. Costa Rica on tympeän makuinen kahvi

      Ostin kahvin hinnan romahduksen kunniaksi Costa Rican "Premium Blendiä". Piti olla sataprosenttista arabialaista. No ain
      Maailman menoa
      58
      957
    7. Miten yrität

      Vielä saada kaivattusi?
      Ikävä
      82
      886
    8. Se kun olit pitkästä aikaa silmieni edessä

      Oli kyllä sykähdyttävää. Tiedätkö, mikä laittaa minut ikävöimään sinua? Kun palautan mieleeni valtavan ihanan olemuksen,
      Ikävä
      55
      851
    9. Tuletko tänään

      Jos soitan? Niin... tuletko?🖤
      Ikävä
      83
      821
    10. Olipa yllätys

      Kuten hyvin moni tiesi/arvasi että valetta alusta loppuun toi *olemme ystäviä* satu. Instassaan käsi kädessä kuva kertoo
      Kotimaiset julkkisjuorut
      215
      784
    11. 55
      780
    12. Muutto auto hakee sut tänään!

      Tein sulle oman huoneen! mieheltä naiselle
      Ikävä
      93
      749
    13. Kiinni jäit

      Ei olisi uskonut sinusta
      Ikävä
      40
      696
    14. On todella ikävää

      Todella ikävää, että asiat ovat menneet tällaisiksi. Tämä ei ollut missään vaiheessa tarkoitukseni. Olen tehnyt virheit
      Ikävä
      79
      668
    15. Oletteko koskaan torjuneet kaivattuanne?

      Minä olen, kun en silloin tajunnut vielä ihastuneeni. Yritin paikata tapahtunutta, mutta ei onnistunut enää.
      Ikävä
      31
      627
    16. Ottanet yhteyttä

      Facebookissa,jos on jotain asiaa.Miehelle! T.M-nainen.
      Ikävä
      57
      552
    17. Nyt ei enää ole

      Mitään mikä pitäisi mut hiljaa, kaikesta. Tämä on muutamalle henkilölle täällä.
      Ikävä
      39
      535
    18. Kai sä mies ymmärrät..

      ..ettet jättänyt vaihtoahtoa. Tottakai toivon vielä, että pystyisit toimimaan niin että asiat korjaantuisivat. Vahvast
      Ikävä
      30
      512
    19. Hämmentävä hetki: TTK:sta pudonnut Johanna Puhakka lataa pettyneenä: "Sitä ei voi kieltää"

      Johanna Puhakka ja Jurijs Jurza Trosenko tippuivat Tanssii Tähtien Kanssa -kisasta. Suositussa viihdeohjelmassa nähtiin
      Tanssii tähtien kanssa
      14
      510
    20. Onkin niin, että olet hulluna minuun

      mutta et uskalla sitä tuoda ilmi. Salaa haaveilet kiihkeästä suhteesta, vaan siihen se jää, ja syyksi esteet ja muut. S
      Ikävä
      26
      508
    Aihe