Чтение файла

← →
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"

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
Там есть тесты чтения текстовых файлов различными способами

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