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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.03.2016, 11:25   #1
santafer
Пользователь
 
Регистрация: 28.11.2015
Сообщений: 23
По умолчанию Описать функцию LineCount(S) целого типа

Помогите переделать код под графический интерфейс


Код:
type
 FileName=String;
 
var i:integer;
S:FileName;
 
function LineCount(S:FileName):integer;
var
 F: Text;
 TempS:String;
begin
  Assign(F,S);
  {$I-}
  Reset(F);
  if IOResult<>0 then Result:=-1
  else
   begin
    Result:=0;
    While not eof(F) do
     begin
      Readln(F,TempS);
      inc(Result);
     end;
    Close(F);
   end;
  {$I+}
end;
 
begin
 for i:=1 to 3 do
  begin
   Write('S: ');
   Readln(S);
   writeln(LineCount(S));
  end;
end.
Описать функцию LineCount(S) целого типа, возвращающую количество строк в текстовом файле с именем S. Если файл не существует, то функция возвращает −1. С помощью этой функции найти количество строк в трех файлах с данными именами.
santafer вне форума Ответить с цитированием
Старый 19.03.2016, 12:48   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Код:
function LineCount(const AFileName: TFileName): Integer;
var
  lines: TStrings;
begin
  if not FileExists(AFileName)
    then Exit(-1);
    
  try  
    lines:= TStringList.Create();
    try
      lines.LoadFromFile(AFileName);
      Result:= lines.Count;
    finally
      lines.Free();
    end;
  except
    Result:= -2; // ошибка в/в (можно выдать сообщение, если надо)
  end;
end;
Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 19.03.2016, 17:36   #3
santafer
Пользователь
 
Регистрация: 28.11.2015
Сообщений: 23
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
Код:
function LineCount(const AFileName: TFileName): Integer;
var
  lines: TStrings;
begin
  if not FileExists(AFileName)
    then Exit(-1);
    
  try  
    lines:= TStringList.Create();
    try
      lines.LoadFromFile(AFileName);
      Result:= lines.Count;
    finally
      lines.Free();
    end;
  except
    Result:= -2; // ошибка в/в (можно выдать сообщение, если надо)
  end;
end;
Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!
а можете объяснить куда это вставить ? точнее после чего
santafer вне форума Ответить с цитированием
Старый 19.03.2016, 17:39   #4
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
а можете объяснить куда это вставить ? точнее после чего
в любое место после implementation.
это ж подпрограмма. она используется внутри основной программы.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Описать функцию для определения первой (второй) цифры целого числа ( Паскаль ) Никита757 Помощь студентам 1 08.06.2015 16:54
Basic Описать функцию DigitN (K, N) целого типа Екатерина23 Помощь студентам 5 11.01.2014 17:18
Visual Basic: Описать функцию DigitN (K, N) целого типа, возвращающую N-ю цифру целого положительного числа К Екатерина23 Помощь студентам 1 10.12.2013 09:25
Описать Функцию Палиндром для целого числа glebast Помощь студентам 2 30.12.2011 13:33
Написать функцию булевского(целого) типа, определяющую упорядоченность массива целых чисел Anando Паскаль, Turbo Pascal, PascalABC.NET 16 23.09.2011 13:26