Doma mám lazarus a v škole sa venujem INF, programujem.
Chcem vytvoriť program pre otca, a neviem si pomôcť s jedným problémom.
Chcel by som program, ktorý vyhľadá v nejakom textovom súbore.txt slovo, ktoré zadáme do Edit1.text a na plochu nám vypíše, či sa tam toto slovo nachádza. Ak sa tam nenachádza, takisto nám to vypíše.
Zatiaľ mám toto :
Button1:
Kód: Vybrať všetko
var
subor: TextFile;
a,b: String;
begin
image1.canvas.fillrect(image1.clientrect);
AssignFile(subor, 'kalendare.txt');
Reset(subor);
a:= edit1.text;
begin
Readln(subor, b);
if a = b then
begin
image1.canvas.textout(10, 10, 'mam');
end;
if a <> b then
begin
Image1.canvas.textout(10,10, 'nemam');
end;
if a = 'Edit1' then
begin
image1.canvas.textout(10,10, 'nic nieje napisane');
end;
CloseFile(subor);
end;
end; >> Nedokážem si stým pomocť, potreboval by som pomôcť, ako zapísať moje "b" ktoré vidíte, aby pre "b" platilo, že je to vlastne súbor, teda jeho obsah... Dostal som sa aj do štádia, keď tam zadám príkaz Eof, že mi vyhodí tab. "access denied / File cannot open"
Viete niekto poradiť ? Vďaka !
) Takže díki za radu !
