[Delphi] Listbox i memo again

0

Czesc!
Kazdy wie jak wygląda encyklopedia, słownik itp.Chce uzyskac taki efekt tj.
jak zaznacze item w listboxie to w memo pokazuje sie opis. dane laduja sie z jednego pliku i tez nie wiem za bardzo jak to rozmiescic , myslalem o rekordach.Zaznaczam nie chce korzystac z baz danych chce przećwiczyc podstawowe komponenty delphi. Chce napisac taki mini leksykon mysle ze te komponenty beda odpowiednie.Bardzo prosze o odzew.DZieki, dzieki...dzieki. :-)
:-) :-) :-)

0

Odzew ? To jest post w stylu: "Zrobie to i to, fajnie nie ?". :P
Zadaj moze jakies pytanie.

0

Pochwa lony! :)
Nie wiem o co za bardzo Ci chodzi, czy po kliknięciu listBox'a ma do Memo ładować z osobnego pliku tekst?? Jeżeli tak to będę mógł podesłać taki kodzik, co prawda bardzo skomplikowany, ale jak będziesz chciał to dam Ci prostszy :):):):):).

0

Czesc!
Kazdy wie jak wygląda encyklopedia, słownik itp.Chce uzyskac taki efekt tj.
jak zaznacze item w listboxie to w memo pokazuje sie opis. dane laduja sie z jednego pliku i tez nie wiem za bardzo jak to rozmiescic , myslalem o rekordach.Zaznaczam nie chce korzystac z baz danych chce przećwiczyc podstawowe komponenty delphi. Chce napisac taki mini leksykon mysle ze te komponenty beda odpowiednie.Bardzo prosze o odzew.DZieki, dzieki...dzieki. :-)
:-) :-) :-)

Sprobujmy najprostszym sposobem Krok po Kroku bez udziwnien, ale myśle, że kod nie bedzie :) na 100% optymalny ale pokaze co mozna zrobic: [diabel]

Type Slowo=Record
Nazwa:String[10];
Plik:String[10];
end;

var Slownik:file of Slowo;

{WCZYTUJE CALA ZAWARTOSC SLOWNICTWA DO LISTBOXA}
procedure TForm1.FormShow(Sender: TObject);
var S:Slowo
begin
assignfile(slownik,path);
reset(slownik);
while not eof(slownik) do
begin
read(slownik,s);
listbox1.items.add(s.slowo);
end;
closefile(slownik);
end;
{Po kliknięciu na wybrane haslo wczytuje sie odpowiedni plik}
procedure TForm1.ListBox1Click(Sender: TObject);
var s:slowo;
begin
assignfile(slownik,path);
reset(slownik);
seek(slownik,listbox1.itemindex);
memo1.lines.loadfromfile(s.plik);
closefile(slownik);
end;

Pisalem to z pamięci wiec moze gdzies byc blad, jak znajde to poprawie.
Mam nadzieję ze o to chodzi. :)

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