 |
 | | Delphi: ListBox i zapisywanie LUB RichEdit |
|
 |
 Wysłano: Piątek, 18 Marca 2005, 20:23 |
  |
|
|
No więc tak:
Mam komponent ListBox1 i mam procedurę dodawania do kolenych wierszy ListBoxa kolejnych słów. treaz chcę te słowa zapisać w tablicy rekordów z wierszy ListBoxa. Kod wygląda następująco:
| Kod: |
procedure TForm3.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to Baza[1].kl_max do
Baza[1].sl_klucz[i] := ListBox1.Items.Names[i];
ListBox1.Clear;
for i := 1 to Baza[1].kl_max do
ListBox1.Items.Add(Baza[1].sl_klucz[i]);
Zap := False;
close;
end;
|
Ale gdy włączam program, dodaję słowa i wciskam OK (Button1), to przerywa się program i wyskakuje komunikat:
"List index out of bounds" i np. "(1)", jeśli wpisałem jedno słowo
Co zrobiłem źle??
Druga opcja. Zamiast ListBoxa ma RichEdit1. z menu wybrałem funkcję:
RichEdit1.FindText();
Jakie parametry mam wpisać w nawias?? Czy ktoś umie mi pomóc?? |
|
|
|
|
 |
|
 |
|
| | Re: <NPS> Delphi: ListBox i zapisywanie LUB RichEdit |
|
|
| Wysłano: Sobota, 19 Marca 2005, 17:38 |
|
|
|
| index listy zaczyna się od 0 a nie od 1 |
|
|
|
|
Najlepsze implanty Szczecinhotel wellness w Ciechocinku
Kopiowanie i rozpowszechnianie materiałów w całości lub części jest niedozwolone. Wszelkie informacje zawarte w tym miejscu są chronione prawem autorskim.
|
