Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Как вытянуть строку из текстового файла?   Найти похожие ветки 

← →
UDS   (2003-03-10 13:25) [0]

Уважаемые знатоки! Подскажите как организовать рандомный выбор и вывод строки из текстового файла в TLabel? Заранее, спасибо.

---

← →
MsGuns ©   (2003-03-10 13:29) [1]

Загрузи файл в стринглист, инициализируй рандом, тягай из списка по полученной "случайной" величине

---

← →
Вадим ©   (2003-03-10 13:41) [2]

function GetRndStr(const FileName): string;
var
i, c, k: integer;
f: TextFile;
begin
i := 0;
AssignFile(f, FileName);
Reset(f);
try
while not Eof(f) do inc(i);
finally
CloseFile(F);
end;

Randomize;
k := Random(i) + 1;
AssignFile(f, FileName);
Reset(f);
try
for c := 1 to i - 1 do
ReadLn(f);
ReadLn(f, Result);
finally
CloseFile(F);
end;
end;

function GetRndStr(const FileName): string;
var
s: TStringList;
begin
s := TStringList.Create;
s.LoadFromFile(FileName);
Randomize;
Result := s[Random(s.Count)];
end;

---

← →
Вадим ©   (2003-03-10 13:42) [3]

function GetRndStr(const FileName): string;
var
s: TStringList;
begin
s := TStringList.Create;
try
s.LoadFromFile(FileName);
Randomize;
Result := s[Random(s.Count)];
finally
s.free;
end;
end;

---

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

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c