Строки в txt

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
   

Развернуть Обзор темы: Строки в txt

Re: Строки в txt

Хыиуду » 09 апр 2007, 16:40

Код: Выделить всё

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;
А перед этим предварительно проверить, чтобы длины строк были одинаковыми.

Re: Строки в txt

matroskin » 09 апр 2007, 12:51

somewhere писал(а):Насколько я понял, слово s2 составляется из букв s1 - тогда надо, во-первых, словарь - чтобы юзверь всякую хрень не писал, ну и во-вторых для слова s1 - список букв, из которых слово состоит и их количество, если надо. Потом такой же список будет и s2 - если списки идентичны, то юзверь играет по правилам.
да, именно=)
а как реализовать сравнение по буковкам?

Re: Строки в txt

somewhere » 09 апр 2007, 12:21

&quot писал(а):да, кстати вот еще, есть такая игра - слова ) когда из слова s1 нужно составить слово s2. Как мне проверить правильность составленного слова, поскажите плхз
Насколько я понял, слово s2 составляется из букв s1 - тогда надо, во-первых, словарь - чтобы юзверь всякую хрень не писал, ну и во-вторых для слова s1 - список букв, из которых слово состоит и их количество, если надо. Потом такой же список будет и s2 - если списки идентичны, то юзверь играет по правилам.

Re: Строки в txt

matroskin » 09 апр 2007, 12:03

Игорь Акопян писал(а):matroskin, цель?
Изложи, может многомудрое сообщество предложит варианты решения...
=))
ну вобще нужно выьбрать определенную строку из тхт файла, и дальше работать с ней.
я сделал так- сначала считает число строк, потом random(числа строк)


да, кстати вот еще, есть такая игра - слова :) ) когда из слова s1 нужно составить слово s2. Как мне проверить правильность составленного слова, поскажите плхз

Код: Выделить всё

 for i:=1 to Length(s2) do
   begin
     for j:=1 to Length(s1) do
       begin
......
а дальше чет ниче в голову не приходит=))

Re: Строки в txt

Игорь Акопян » 06 апр 2007, 14:54

matroskin, цель?
Изложи, может многомудрое сообщество предложит варианты решения...

Re: Строки в txt

matroskin » 05 апр 2007, 13:49

пасиб, но эт да, если небольшой..

Re: Строки в txt

Blood_Magic » 04 апр 2007, 13:16

никак

либо, если файл не большой, то так

Код: Выделить всё

ls:=TStringList.Create;
ls.LoadFromFile('c:\taxt.txt');
s:=ls.Strings[5];
ls.Free;

Строки в txt

matroskin » 04 апр 2007, 12:56

Как обратиться к какой либо строке в delphi и паскале в *.txt без цикла? подскажите плз=)

Вернуться к началу