witam
Problem jest taki: mam 1 plik tekstowy TXT. A w nim powiedzmy 12 roznych tekstow piosenek. Jak po kliknieciu na glownym formularzu programu przycisku z nazwa jednego utworu wczytac (z tego pliku tekstowego) do MEMO tekst akurat tego utowru ?
Pozdrawiam!
W pliku zapisuj: w jednym wierszu tytuł a w następnych wierszach tekst. Po otwarciu pliku czytaj kolejne wiersze aż dojdziesz do tytułu, no a póżniej czytaj kolejne wiersze aż dojdziesz do następnego tytułu lub do końca pliku.
private
szukaj : string;
procedure TForm1.Poszukiwanie(Sender: TObject);
var
plik : TextFile;
linia : string;
begin
Memo1.Lines.Clear;
AssignFile(plik, 'zbior.txt');
Reset(plik);
while not Eof(plik) do
begin
Readln(plik, linia);
if linia=szukaj
then
while not Eof(plik) do
begin
Readln(plik, linia);
if linia<>''
then Memo1.Lines.Add(linia)
else
begin
CloseFile(plik);
Exit;
end;
end;
end;
CloseFile(plik);
end;
Budowa pliku tekstowego musi byc nastepujaca:
[linia1]
tekst
[linia2]
tekst
itd.
Teraz zaladowanie tekstu do pola memo:
procedure TForm1.Button1Click(Sender: TObject);
begin
szukaj:='[linia1]';
Poszukiwanie(Sender);
end;