List index out of bounds

0

Witam. Wiem, że podobne tematy już istnieją ale w żadnym nie znalazłem odpowiedzi na mój problem.
Wywala mi błąd:

Project Project1.exe raised exception class EStringListError with message 'List index out of bounds(0)'.

I szczerze mówiąc już zgłupiałem dlaczego on wywala.
Oto kod:

    S1 := TStringList.Create;

    ExtractStrings(['.'], [], Pchar(Form6.Edit1.Text), S1);

    (...)
    S1.Free;

Poustawiałem sobie break pointy i wskazało kod:

 S1 := TStringList.Create;

Może wy macie jakieś sugestie dlaczego on wywala. Dodam jeszcze, że do niedawna kod dział poprawnie. Dodałem 1 komponent na formkę i od tej pory sypie.

2

Brak danych by udzielić jednoznacznej odpowiedzi. Lub jeśli wolisz "U mnie wszystko działa"

0

Właśnie piszę kod od początku zmieniając nazwy zmiennych. O efektach napiszę za chwile

@Edit
i efektów żadnych :(

@edit2
już działa. powodem było podwójne wywołanie procedury

0

Tak to jest jak się pokazuje tylko 3 linijki z kodu a nie CAŁY kod.

0

Uwierz mi na słowo, że nie chciało by Ci się przeglądać zlepku procedur i funkcji a jest tego naprawdę spora ilość :)

0

Nie chcę się teraz kolego z Tobą kłócić bo forum nie służy do tego ale jak chcesz to zaproszę Cię do siebie i wtedy zerkniesz na kod i stwierdzisz czy kod na prawdę jest w opłakanym stanie :) Jeśli byś chciał to zapraszam do Sieradza.

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