Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2012, 17:52   #1
larissia
Новичок
Джуниор
 
Регистрация: 07.06.2012
Сообщений: 6
По умолчанию Дан текстовый файл f. Получить самую короткую строку файла.

задача решается в дклфи
larissia вне форума Ответить с цитированием
Старый 07.06.2012, 21:42   #2
denisbrain
Форумчанин
 
Регистрация: 29.05.2011
Сообщений: 449
По умолчанию

Цитата:
Сообщение от larissia Посмотреть сообщение
задача решается в дклфи
Код:
Function GetMinLengthStrFromStringList(Value:TstringList):string;
var x:integer;
    s:string;
begin
s:=value[0];
  for X:=0 to value.Count-1 do
    if length(value[x])<length(s) then s:=value[x];
    result:=s;
end;
Function GetMinLength(FileName:string):string;
var Str:TStringList;
begin
  if FileExists(filename) then // проверяем сществует ли файл
  begin
    str:=TStringlist.Create;
    str.LoadFromFile(filename);
    result:=GetMinLengthStrFromStringList(str);
    str.Free;
  end;
end;
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype
denisbrain вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
4. Дан текстовый файл. Создать символьный файл trum Помощь студентам 0 03.06.2012 19:20
Работа с файлами .Найти самую длинную и самую короткую строки. britannia C# (си шарп) 1 03.06.2011 13:45
Pascal создать файл и вывести самую короткую строку mrRastom Помощь студентам 0 01.06.2011 19:42
Скопировать содержимое текстового файла, удалив самую длинную строку. Nice Plant Помощь студентам 1 25.10.2010 12:54
Дан символьный файл f. Получить копию файла в файле g MrJohanson Фриланс 9 08.04.2010 14:35