Mam
var
i : integer;
z : TStringList;
begin
z := TStringlist.Create;
z.LoadFromFile('plik.txt');
z.sort;
z.Find(edit1.text,i);
ExtractStrings([';'],[],Pchar(z[i]),a);
.........
a pliku :
become;became;become;stawać się;
begin;began;begun;zaczynać;
bite;bit;bitten;gryźć; itd.
Jak widac ExtractStrings rozdziela linijke o numerze " i ", ktrą zwraca z.find ale......
Gdy Edit1.text:=pierwszy wyraz np. become lub begin lub bite to wszystko jest ok czyli po dalszej obrobce dodaje mi rozdzielone wyrazy do poszcegolnych editow. Ale gdy Edit1.text := kolejny wyraz czyli nie pierwszy np. became lub begun lub bitten to wszystko zaczyna sie sypac, program dziala ale nie podaje dobrej linni do rozdzielenia. Gdy np. wpisze bitten to podzieli mi linie gdzie jest begin;began;begun;zaczynać;
Dlaczego sie taq dzieje ????
Prosze pomozcie !