JAk napisać aby programik odczytyał z pliku np. 1.txt z tagów tytuł grydo listboxa a z tagówinfo o grzedo tmemo ?
piszcie na [email protected]
JAk napisać aby programik odczytyał z pliku np. 1.txt z tagów tytuł grydo listboxa a z tagówinfo o grzedo tmemo ?
piszcie na [email protected]
moje stare pozmieniaj co chcesz
procedure tform1.sprawdz_tytul;
var
i,i2 : integer;
s,tit : string;
begin
for i:=0 to synmemo1.Lines.Count - 1 do
begin
s := synmemo1.Lines[i];
tit := s;
s := lowercase(s);
if pos('',s) > 0 then
begin
delete(tit,1,pos('',s)+6);
delete(s,1,pos('',s)+6);
delete(tit,pos('',s),length(s));
tab1.Caption := tit;
break;
end;
if i = 50 then break;
end;
end;
Masz dwa wyjścia. Albo użyć funkcji pos() oraz copy(), albozainteresować się językiem xml :)