Скачать: CL | DM;

Чтение файла   Найти похожие ветки 

← →
Inetpro   (2004-03-21 03:37) [0]

Люди перерыл пол инета не могу найти исходник или код... Как из текстового файла прочитать строку и вывести её случайным образом(случайную строку) в свою программу... Пожалуйста помогите оч. благодарен.

---

← →
KSergey ©   (2004-03-21 08:46) [1]

Плохо рыл. Очень плохо. Вот недавно была ветка
http://delphimaster.net/view/1-1079625757/
Здесь найдешь кучу примеров чтения из текствого файла.

А вот про случайность - нифига не понял.
Надо считать случайную? Надо вывести ее случайно? это как??

---

← →
Anatoly Podgoretsky ©   (2004-03-21 13:09) [2]

http://www.delphikingdom.com/lyceum/seminar.asp?partID=4

---

← →
***ghost***   (2004-03-21 14:23) [3]


memo1.visible:=false;
memo1.lines.text:=loadfromfile("*.txt");
label1.caption:=memo1.lines.text[random(memo1.lines)];

memo1 - невидимый, просто уловка.
Пожайлуста...

---

← →
Inetpro   (2004-03-21 15:39) [4]

Чтото не работает:
memo1.lines.text:=loadfromfile("*.txt");
label1.caption:=memo1.lines.text[random(memo1.lines)];

Я вот что нашел:
with TStringList.Create do
try
  LoadFromFile("Text.txt");
  ShowMessage("Количество строк: " + IntToStr(Count));
finally
  Free;
end;
Может вместо  Количества строк чтонибуть можно вставить чтоб случайную строка выводилась???
Спасибо всем кто откликнулся...

---

← →
KSergey ©   (2004-03-21 15:44) [5]

Неужели строка из

> [3] ***ghost***   (21.03.04 14:23)
> label1.caption:=memo1.lines.text[random(memo1.lines)];

ни на какие мысли не наводит? Или код должен быть полностью готов именно под твою задачу??

---

← →
TUser ©   (2004-03-21 15:54) [6]

По-моему мема для таких целей - это зело круто. Используй TStringList. Или еще лучше - читай как file of char со случайного места, дочитывай до первого конца строки, дальше заполняй буфер доя след. конца строки и его выводи.

---

← →
Inetpro   (2004-03-21 16:07) [7]

Вот эта строчка загружает в Memo текст из файла.
memo1.lines.LoadFromFile("text.txt");
А на это дельфи ругается...
memo1.lines.text:=loadfromfile("text.txt");
Может я чтото в var должен прописать....?
Помогите чайнику...

---

← →
KSergey ©   (2004-03-21 16:10) [8]

Ругается как? неужели нельзя понять?

А функции loadfromfile нету. Есть метод у TStrings

---

← →
Inetpro   (2004-03-21 16:13) [9]

Так чего написать то??? Как это TString подключить штоли???
Я понимаю что задаю ламерские вопросы... Но всёже надеюсь на ваще понимание... Спасибо

---

← →
Плохиш   (2004-03-21 16:17) [10]

> Inetpro   (21.03.04 16:13) [9]

Что кнопка "F1" сломалась? Используй меню "Help"

---

← →
Gero ©   (2004-03-21 16:38) [11]

with TStringList.Create do
try
 LoadFromFile("Text.txt");
 ShowMessage("Случайная строка: " + Strings[Random(Count)]);
finally
 Free;
end;

---

← →
Inetpro   (2004-03-21 16:41) [12]

Огромное спасибо. Добрый человек!

---

← →
Serginio666   (2004-03-22 14:15) [13]

Посмотри http://1c.hippo.ru/cgi-bin/predownl.cgi?id=2019
Там есть тесты чтения текстовых файлов различными способами

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.031 c