FindComponent - usuwanie i "Argument out of range"

maniutek20

2014-09-20 15:19

maniutek202014-09-20 15:19

Rejestracja:prawie 14 lat
Ostatnio:dzień
Postów:138

Pozwolę sobie założyć nowy wątek, bo lektura forum nie przyniosła odpowiedzi.
Otóż mam program (galerię obrazów) w którym chciałbym dodać możliwość usuwania wybranych obrazów z widoku. Obrazy są dodawane jako obiekty TImage z przypisanym do nich checkboxem. Poniżej kod procedury usuwania:

Kopiuj

 procedure TForm1.Button5Click(Sender: TObject);
var
  J : Integer;
  S : String;
  NewStr, OldStr : String;
begin
  for J:=0 to componentcount-1 do
    begin
     if (Components[J] is Tcheckbox) and ((Components[J] as Tcheckbox).IsChecked=true)then
          begin
        S:= (components[J].Name);
        oldstr:='czek';
        newstr:='glowny';
        S := StringReplace(S, OldStr, NewStr, [rfReplaceAll]);
      findcomponent(s).free;

           end;
    end;
end;

Kiedy obrazów jest dużo wszystko działa bez zarzutu, ale kiedy schodzę do 3-5 to za każdym razem wyskakuje mi błąd:
"Argument out of range". Mam chyba znaczący brak wiedzy, bo nie mogę tego przeskoczyć.

Patryk27

2014-09-20 15:23

Patryk272014-09-20 15:23

Moderator

Rejestracja:ponad 17 lat
Ostatnio:ponad rok
Lokalizacja:Wrocław
Postów:13042

Musiałbyś zrobić pętlę While i inkrementować tylko wtedy, gdy nie zwalniasz komponentu.

_13th_Dragon

2014-09-20 16:47

_13th_Dragon2014-09-20 16:47

Rejestracja:ponad 19 lat
Ostatnio:2 miesiące

Kasuj od końca:

Kopiuj

for J:=ComponentCount-1 downto 0 do

edytowany 1x, ostatnio: _13th_Dragon 2014-09-20 16:47

grzegorz_so

2014-09-20 16:54

grzegorz_so2014-09-20 16:54

Rejestracja:ponad 14 lat
Ostatnio:około 3 godziny

Kopiuj

findcomponent(s).free

zmniejsza liczbę komponentów i wymiar tablicy Components, tym samym odwołanie Components[J] może wykraczać poza jej rozmiar

abrakadaber

2014-09-20 16:57

~~abrakadaber~~2014-09-20 16:57

Rejestracja:ponad 12 lat
Ostatnio:7 miesięcy
Postów:6610

albo pętlę od componentcount - 1 do 0

maniutek20

2014-09-20 17:03

maniutek202014-09-20 17:03

Rejestracja:prawie 14 lat
Ostatnio:dzień
Postów:138

Kasując od końca też wywala "Argument out of range". Jestem mocno zdziwiony bo czasami wywala błąd przy 3 ostatnich, czasami przy ostatnim. Jak jest dużo komponentów to się ładnie usuwają, ale przy końcówce zawsze daje błąd. Jest jakaś metoda na wyszukiwanie komponentów wg typu? Tzn. chciałbym znaleźć wszystkie komponenty typu TCheckbox bez znajomości ich nazwy.

grzegorz_so

2014-09-20 17:17

grzegorz_so2014-09-20 17:17

Rejestracja:ponad 14 lat
Ostatnio:około 3 godziny

bo 'componentcount' zlicza wszystkie komponenty, w tym również checkboxy

flowCRANE 2014-09-20 23:38

Poza tym warunek końcowy pętli for obliczany jest tylko raz, co nie ma miejsca w pętli while;

grzegorz_so

2014-09-20 17:26

grzegorz_so2014-09-20 17:26

Rejestracja:ponad 14 lat
Ostatnio:około 3 godziny

utwórz metodę która będzie kasowała tylko jeden (pierwszy znaleziony) komponent z zaznaczonych do skasowania i zwróci wartość logiczną True jeśli coś skasowano i False jeśli już nic nie było do skasowania

a potem zrób coś takiego :

Kopiuj

while self.kasuj do ;

pętla będzie się wykonywać aż do usunięcia ostatniego komponentu

edytowany 1x, ostatnio: grzegorz_so 2014-09-20 17:30

maniutek20

2014-09-20 17:27

maniutek202014-09-20 17:27

Rejestracja:prawie 14 lat
Ostatnio:dzień
Postów:138

Poszedłem w stronę tego

Kopiuj

 while

, co prawda błąd zniknął ale teraz kasuje mi na raty. Tzn. mam zaznaczone np 9 elementów, najpierw skasuje 5, potem 3 i na końcu jeden. Trochę kodu:

Kopiuj

 begin

J := 0;
while J < componentcount - 1 do
    begin
     if (Components[J] is Tcheckbox) and ((Components[J] as Tcheckbox).IsChecked=true)then
          begin
        S:= (components[J].Name);
        oldstr:='czek';
        newstr:='glowny';
        S := StringReplace(S, OldStr, NewStr, [rfReplaceAll]);
        findcomponent(s).Free;
          end;
       J:=J+1;
          end;
end;

grzegorz_so 2014-09-20 17:32

bo musisz mieć dwie pętle zagnieżdżone , teraz tę pętle zewnętrzną tworzysz przez wielokrotne naciskanie buttona, i dlatego działa :)

grzegorz_so

2014-09-20 17:39

grzegorz_so2014-09-20 17:39

Rejestracja:ponad 14 lat
Ostatnio:około 3 godziny

Wariant drugi , to tworzysz dynamiczną tablicę zawierającą wskaźniki do komponentów które mają być usunięte.
W pierwszej pętli tylko wyszukujesz komponenty do skasowania i dodajesz do tablicy odpowiednie wskaźniki, a w kolejnej lecisz po tej tablicy i kasujesz

grzegorz_so

2014-09-20 17:50

grzegorz_so2014-09-20 17:50

Rejestracja:ponad 14 lat
Ostatnio:około 3 godziny

Kopiuj

var
  I: Integer;
  a: array of tcomponent;
begin
  setlength(a, 0);
  for I := 0 to self.Componentcount - 1 do
    if { tu warunek kasowania }  then
    begin
      setlength(a, length(a) + 1);
      a[ high(a)] := self.Components[I];
    end;
  for I := 0 to high(a) do
    a[I].free;
end;

_13th_Dragon

2014-09-20 17:59

_13th_Dragon2014-09-20 17:59

Rejestracja:ponad 19 lat
Ostatnio:2 miesiące

Dostałeś odpowiedź w drugim poście ale nadal robisz to samo, masz gotowe poprawne rozwiązanie:

Kopiuj

for J:=ComponentCount-1 downto 0 do
  if (Components[J] is Tcheckbox)and((Components[J] as Tcheckbox).IsChecked) then
    findcomponent(StringReplace(components[J].Name,'czek','glowny',[])).Free;

maniutek20

2014-09-20 18:06

maniutek202014-09-20 18:06

Rejestracja:prawie 14 lat
Ostatnio:dzień
Postów:138

Nie jest to poprawne rozwiązanie, niestety. Taki kod zwraca "Argument out of range". Wersja z odliczaniem w dół to pierwsza którą napisałem.

_13th_Dragon

2014-09-20 18:11

_13th_Dragon2014-09-20 18:11

Rejestracja:ponad 19 lat
Ostatnio:2 miesiące

Kopiuj

J:=ComponentCount-1;
while J>=0 do
begin
  if (Components[J] is Tcheckbox)and((Components[J] as Tcheckbox).IsChecked) then
  begin
    findcomponent(StringReplace(components[J].Name,'czek','glowny',[])).Free;
    if J>ComponentCount then J:=ComponentCount;
  end;
  Dec(J);  
end;

maniutek20

2014-09-20 18:18

maniutek202014-09-20 18:18

Rejestracja:prawie 14 lat
Ostatnio:dzień
Postów:138

Dobra ciemny jestem, i nie umiem programować:). Sypię głowę popiołem. _13th_Dragon dzięki wielkie, ten kod działa poprawnie i szybko.
Dzięki wszystkim za pomoc

_13th_Dragon

2014-09-20 18:28

_13th_Dragon2014-09-20 18:28

Rejestracja:ponad 19 lat
Ostatnio:2 miesiące

Z tym że powinieneś to przerobić na normalne tablice.

maniutek20 2014-09-20 18:37

w sensie dodawać komponenty do tablicy i usuwać z tablicy po kolei?

_13th_Dragon 2014-09-20 18:43

dokładnie, pamiętaj że nawet nie musisz usuwać, wystarczy że wrzucisz na jakiś panel i zrobisz ten panel niewidocznym.

Patryk27

2014-09-20 18:46

Patryk272014-09-20 18:46

Moderator

Rejestracja:ponad 17 lat
Ostatnio:ponad rok
Lokalizacja:Wrocław
Postów:13042

```delphi J := 0;
while J < ComponentsCount do
begin
if (Components[J] is TCheckBox) and (TCheckBox(Components[J]).IsChecked) then
begin
findcomponent(StringReplace(components[J].Name,'czek','glowny',[])).Free;
end else
begin
Inc(J);
end;
end;

Kopiuj
Ale pisanie nieskomplikowanego kodu jest takie mainstreamowe, wiem ;p</del>

edytowany 1x, ostatnio: Patryk27 2014-09-20 20:09

Zobacz pozostałe 3 komentarze

Patryk27 2014-09-20 20:09

Mea culpa, zwracam honor. Nie wziąłem pod uwagę tego, że przecież usuwamy inny komponent, a nie ten sprawdzany.

_13th_Dragon 2014-09-20 20:12

To akurat było jasne od początku, ale to: - "Plus potwierdzone doświadczalnie, że działa" - dla mnie wciąż jest zagadką.

Patryk27 2014-09-20 20:13

Potwierdzone doświadczalnie wrzuceniem na formatkę trzech czekboksów i wywołaniem tego kodu... tyle że bez StringReplace :P

_13th_Dragon 2014-09-20 20:15

Bardzo czysty eksperyment, gratulacje ;P

Patryk27 2014-09-20 20:27

Oj tam, oj tam ;p

Liczba odpowiedzi na stronę

Treść *

Treść

Podgląd

Kliknij, aby dodać treść...

Kliknij, aby dodać załącznik lub wklej ze schowka.

Instrukcja obsługi Markdown

Pomoc 1.18.8

Typografia

Edytor obsługuje składnie Markdown, w której pojedynczy akcent *kursywa* oraz _kursywa_ to pochylenie. Z kolei podwójny akcent **pogrubienie** oraz __pogrubienie__ to pogrubienie. Dodanie znaczników ~~strike~~ to przekreślenie.

Możesz dodać formatowanie komendami , , oraz .

Ponieważ dekoracja podkreślenia jest przeznaczona na linki, markdown nie zawiera specjalnej składni dla podkreślenia. Dlatego by dodać podkreślenie, użyj underline.

Komendy formatujące reagują na skróty klawiszowe: Ctrl+B, Ctrl+I, Ctrl+U oraz Ctrl+S.

Linki

By dodać link w edytorze użyj komendy lub użyj składni [title](link). URL umieszczony w linku lub nawet URL umieszczony bezpośrednio w tekście będzie aktywny i klikalny.

Jeżeli chcesz, możesz samodzielnie dodać link: <a href="link">title</a>.

Wewnętrzne odnośniki

Możesz umieścić odnośnik do wewnętrznej podstrony, używając następującej składni: [[Delphi/Kompendium]] lub [[Delphi/Kompendium|kliknij, aby przejść do kompendium]]. Odnośniki mogą prowadzić do Forum 4programmers.net lub np. do Kompendium.

Wspomnienia użytkowników

By wspomnieć użytkownika forum, wpisz w formularzu znak @. Zobaczysz okienko samouzupełniające nazwy użytkowników. Samouzupełnienie dobierze odpowiedni format wspomnienia, zależnie od tego czy w nazwie użytkownika znajduje się spacja.

Znaczniki HTML

Dozwolone jest używanie niektórych znaczników HTML: <a>, , , <kbd>, <del>, , <dfn>, <pre>, <blockquote>, <hr/>, ,  oraz <img/>.

Skróty klawiszowe

Dodaj kombinację klawiszy komendą notacji klawiszy lub skrótem klawiszowym Alt+K.

Reprezentuj kombinacje klawiszowe używając taga <kbd>. Oddziel od siebie klawisze znakiem plus, np <kbd>Alt+Tab</kbd>.

Indeks górny oraz dolny

Przykład: wpisując H2O i m2 otrzymasz: H₂O i m².

Składnia Tex

By precyzyjnie wyrazić działanie matematyczne, użyj składni Tex.

<tex>arcctg(x) = argtan(\frac{1}{x}) = arcsin(\frac{1}{\sqrt{1+x^2}})</tex>

Kod źródłowy

Krótkie fragmenty kodu

Wszelkie jednolinijkowe instrukcje języka programowania powinny być zawarte pomiędzy obróconymi apostrofami: `kod instrukcji` lub ``console.log(`string`);``.

Kod wielolinijkowy

Dodaj fragment kodu komendą . Fragmenty kodu zajmujące całą lub więcej linijek powinny być umieszczone w wielolinijkowym fragmencie kodu. Znaczniki ``` lub ~~~ umożliwiają kolorowanie różnych języków programowania. Możemy nadać nazwę języka programowania używając auto-uzupełnienia, kod został pokolorowany używając konkretnych ustawień kolorowania składni:

```javascript document.write('Hello World'); ```

Możesz zaznaczyć również już wklejony kod w edytorze, i użyć komendy by zamienić go w kod. Użyj kombinacji Ctrl+`, by dodać fragment kodu bez oznaczników języka.

Tabelki

Dodaj przykładową tabelkę używając komendy . Przykładowa tabelka składa się z dwóch kolumn, nagłówka i jednego wiersza.

Wygeneruj tabelkę na podstawie szablonu. Oddziel komórki separatorem ; lub |, a następnie zaznacz szablonu.

nazwisko;dziedzina;odkrycie
Pitagoras;mathematics;Pythagorean Theorem
Albert Einstein;physics;General Relativity
Marie Curie, Pierre Curie;chemistry;Radium, Polonium

Użyj komendy by zamienić zaznaczony szablon na tabelkę Markdown.

Lista uporządkowana i nieuporządkowana

Możliwe jest tworzenie listy numerowanych oraz wypunktowanych. Wystarczy, że pierwszym znakiem linii będzie * lub - dla listy nieuporządkowanej oraz 1. dla listy uporządkowanej.

Użyj komendy by dodać listę uporządkowaną.

1. Lista numerowana
2. Lista numerowana

Użyj komendy by dodać listę nieuporządkowaną.

* Lista wypunktowana
* Lista wypunktowana
** Lista wypunktowana (drugi poziom)

Składnia Markdown

Edytor obsługuje składnię Markdown, która składa się ze znaków specjalnych. Dostępne komendy, jak formatowanie , dodanie tabelki lub fragmentu kodu są w pewnym sensie świadome otaczającej jej składni, i postarają się unikać uszkodzenia jej.

Dla przykładu, używając tylko dostępnych komend, nie możemy dodać formatowania pogrubienia do kodu wielolinijkowego, albo dodać listy do tabelki - mogłoby to doprowadzić do uszkodzenia składni.

W pewnych odosobnionych przypadkach brak nowej linii przed elementami markdown również mógłby uszkodzić składnie, dlatego edytor dodaje brakujące nowe linie. Dla przykładu, dodanie formatowania pochylenia zaraz po tabelce, mogłoby zostać błędne zinterpretowane, więc edytor doda oddzielającą nową linię pomiędzy tabelką, a pochyleniem.

Skróty klawiszowe

Skróty formatujące, kiedy w edytorze znajduje się pojedynczy kursor, wstawiają sformatowany tekst przykładowy. Jeśli w edytorze znajduje się zaznaczenie (słowo, linijka, paragraf), wtedy zaznaczenie zostaje sformatowane.

Ctrl+B - dodaj pogrubienie lub pogrub zaznaczenie
Ctrl+I - dodaj pochylenie lub pochyl zaznaczenie
Ctrl+U - dodaj podkreślenie lub podkreśl zaznaczenie
Ctrl+S - dodaj przekreślenie lub przekreśl zaznaczenie

Notacja Klawiszy

Alt+K - dodaj notację klawiszy

Fragment kodu bez oznacznika

Alt+C - dodaj pusty fragment kodu

Skróty operujące na kodzie i linijkach:

Alt+L - zaznaczenie całej linii
Alt+, Alt+ - przeniesienie linijki w której znajduje się kursor w górę/dół.
Tab/⌘+] - dodaj wcięcie (wcięcie w prawo)
Shit+Tab/⌘+[ - usunięcie wcięcia (wycięcie w lewo)

Dodawanie postów:

Ctrl+Enter - dodaj post
⌘+Enter - dodaj post (MacOS)

FindComponent - usuwanie i "Argument out of range"

abrakadaber

Smileys & People

Animals & Nature

Food & Drink

Travel & Places

Activities

Objects

Symbols

Typografia

Linki

Wewnętrzne odnośniki

Wspomnienia użytkowników

Znaczniki HTML

Skróty klawiszowe

Indeks górny oraz dolny

Składnia Tex

Kod źródłowy

Krótkie fragmenty kodu

Kod wielolinijkowy

Tabelki

Lista uporządkowana i nieuporządkowana

Składnia Markdown

Skróty klawiszowe