IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Как найти максимальное число в тексте?
KljaGGsa
сообщение 5.07.2009 18:57
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Женский

Репутация: -  0  +


Если есть текстовый файл Т.txt , в тексте которого содержится несколько трехзначных чисел, как должна выглядеть процедура, с помощью которой можно было бы найти максимальное число и присвоить его целочисленной переменной i ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
youngDelphyGirl
сообщение 6.08.2009 9:39
Сообщение #2





Группа: Пользователи
Сообщений: 6
Пол: Женский

Репутация: -  0  +


Цитата(volvo @ 5.08.2009 8:15) *

А нам и не надо знать, сколько фрагментов в тексте. Нам надо знать, какой фрагмент мы ищем (по крайней мере в той задаче, которая была поставлена изначально). Если у тебя другая задача - задавай свой вопрос отдельно, формулируй ее, посмотрим, что можно сделать.



А "задать вопрос отдельно" - можно здесь?

Вопрос похожий - разместить в файле фрагменты различного объема, в некоторых случаях более 255 символов. Сделать так, чтобы их можно было пересчитать и выбрать какой-либо один функцией random и вывести его в Memo1. Также предусмотреть возможность добавить или удалить фрагмент.
Так как предусматривается возможность удаления фрагментов, по видимому присваивать им порядковые номера было бы неправильно, иначе пришлось бы заново нумеровать все фрагменты после одного удаленного. По видимому, нужно разделить фрагменты определенным символом и после переноса содержимого файла в переменную типа TStrings или TStringList подсчитать общее число этих символов, а потом оперировать этим числом? А при добавлении из Memo2 очередного фрагмента, добавлять и этот символ, чтобы добавленный фрагмент вписался в общую картину smile.gif И наверное Memo2 следует разместить в Form2, которую делать видимой только для случая добавления фрагмента?
Пока что собственного опыта для корректного написания кода несколько не хватает, поэтому позволю себе нескромно обратиться за помощью к специалистам)))) smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
KljaGGsa   Как найти максимальное число в тексте?   5.07.2009 18:57
volvo   Что кроме чисел есть в файле, и чем отделяются сло...   5.07.2009 18:59
KljaGGsa   Вот образец содержимого файла: 001 фрагмент текс...   6.07.2009 6:06
volvo   Общее количество строк в файле... var sL: TStringL...   6.07.2009 12:46
KljaGGsa   Вот на эту строчку: if TryStrToInt(sL.Strings[i],...   6.07.2009 14:00
volvo   Ну, так переменную Value типа Integer надо описать...   6.07.2009 14:32
KljaGGsa   Владимир, а можно Вас попросить добавить комментар...   6.07.2009 14:51
volvo   Комментарии добавлены...   6.07.2009 15:04
KljaGGsa   Так хотелось бы с вашей помощью эти комментарии пр...   6.07.2009 15:13
volvo   KljaGGsa, я имел в виду, что я в свой код, выше (в...   6.07.2009 15:31
KljaGGsa   Есть целочисленная переменная r, значение которой ...   6.07.2009 15:49
volvo   Смотри: procedure TForm1.Button2Click(Sender: TObj...   6.07.2009 17:41
KljaGGsa   Ну да, мы изначально условились, что r входит в ди...   6.07.2009 19:02
youngDelphyGirl   p := 5; // Будем искать в файле фрагмент № ...   5.08.2009 3:17
volvo   А если мы даже приблизительно не знаем, сколько фр...   5.08.2009 8:15
youngDelphyGirl   А нам и не надо знать, сколько фрагментов в текст...   6.08.2009 9:39
volvo   В принципе, не вижу проблем, чтоб хранить в файле ...   6.08.2009 11:14
youngDelphyGirl   Единственное, на что надо обратить внимание при ...   6.08.2009 13:47
volvo   Очень просто... На форме - Мемо, и две кнопки, од...   6.08.2009 15:06
youngDelphyGirl   Спасибо, сейчас начну писать построчные комментари...   9.08.2009 8:25


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 14.07.2025 9:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"