Строки в txt

[matroskin]

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

[Blood_Magic]

никак

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

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

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

[matroskin]

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

[Игорь Акопян]

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

[matroskin]

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

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


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

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

 for i:=1 to Length(s2) do
   begin
     for j:=1 to Length(s1) do
       begin
......

а дальше чет ниче в голову не приходит=))

[somewhere]

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

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

[matroskin]

Насколько я понял, слово 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;

А перед этим предварительно проверить, чтобы длины строк были одинаковыми.