Wątek przeniesiony 2014-09-02 14:40 z Delphi i Pascal przez furious programming.

RLE - Dopisywanie do ciągu wyjściowego

0

Witam
Prosiłbym o wytłumaczenie tych procedur :

o:=o+inttostr(-noseries+1)+copy(i, j-noseries, noseries-1);  
               noseries:=1; 
 if series <> 1 then o:=o+inttostr(series)+a;    
     if noseries > 1 then begin                      

        if length(o) = 0 then o:=o+inttostr(-noseries)+copy(i, j-noseries-1, noseries)
        else o:=o+inttostr(-noseries)+copy(i, j-noseries+1, noseries);
     end;
     if a <> o[length(o)] then o:=o+inttostr(-1)+a;
1

@Fusion789 - nie wiem dokładnie co zasugerował @vpiotr podając link, w każdym razie po pierwsze zaglądnij pod ten link, bo najwidoczniej nie wiesz czym są procedury i funkcje; Podałeś jedynie wycinki kodu, w których użyte są jakieś zmienne jakiegoś typu, więc niewiele można doradzić;

Jeżeli nie wiesz do czego służą użyte funkcje, to poniżej podaję linki do kompendium wiedzy, abyś mógł się z tymi terminami zapoznać:

  • Length - pobiera i zwraca długość łańcucha znaków, macierzy itd.,
  • Copy - kopiuje i zwraca podciąg znaków z wejściowego łańcucha,
  • IntToStr - konwertuje liczbę całkowitą na łańcuch znaków i zwraca go;
    A wątek przenoszę do działu Newbie, dlatego że dotyczy podstaw programowania i znajomości zawartości biblioteki standardowej.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0