Код: Выделить всё
ls:=TStringList.Create;
ls.LoadFromFile('c:\taxt.txt');
s:=ls.Strings[5];
ls.Free;
=))Игорь Акопян писал(а):matroskin, цель?
Изложи, может многомудрое сообщество предложит варианты решения...
) когда из слова s1 нужно составить слово s2. Как мне проверить правильность составленного слова, поскажите плхз
Код: Выделить всё
for i:=1 to Length(s2) do
begin
for j:=1 to Length(s1) do
begin
......
Насколько я понял, слово s2 составляется из букв s1 - тогда надо, во-первых, словарь - чтобы юзверь всякую хрень не писал, ну и во-вторых для слова s1 - список букв, из которых слово состоит и их количество, если надо. Потом такой же список будет и s2 - если списки идентичны, то юзверь играет по правилам." писал(а):да, кстати вот еще, есть такая игра - слова ) когда из слова s1 нужно составить слово s2. Как мне проверить правильность составленного слова, поскажите плхз
да, именно=)somewhere писал(а):Насколько я понял, слово s2 составляется из букв s1 - тогда надо, во-первых, словарь - чтобы юзверь всякую хрень не писал, ну и во-вторых для слова s1 - список букв, из которых слово состоит и их количество, если надо. Потом такой же список будет и s2 - если списки идентичны, то юзверь играет по правилам.
Код: Выделить всё
s:=s2
for i:=1 to length(s1) do
if pos(s1[i],s)>0 then delete(s,pos(s1[i],s),1)
else begin writeln('Из s1 нельзя получить s2!'); break;end;