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

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

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2015, 22:05   #11
yana1996
Пользователь
 
Регистрация: 02.12.2015
Сообщений: 38
По умолчанию

Lazarus у меня

Цитата:
Сообщение от Stilet Посмотреть сообщение
А у тебя какой паскаль?
У меня lazarus

Последний раз редактировалось Stilet; 02.12.2015 в 22:24.
yana1996 вне форума Ответить с цитированием
Старый 02.12.2015, 22:26   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Оу... А чеж ты не в ту ветку тему запостила? Ай-яй-яй...
Конечно нужно образмеривать:
Код:
TRec=record
   s:string[255]
Где 255 - нужная длина строки.
Да и вообще тогда эту задачу нужно решать по-другому. Через TFileStream, а не классическими паскалевскими.
И функция та твоя она получается тоже может быть заменена на более современный код, который Лазарусом позволяется.
Код:
Function WordByNum(s:string,k:integer):TRec;
var i:integer;
begin
 with TStringList.Create do begin
  Delimiter:=' ';
  DelimitedText:=s;
  if k<Count then begin
    result.s:=Strings[k];
    result.Len:=Length(Strings[k]);
    for i:=1 to Length(result.s) do if pos(result.s[i],'уеао')<>0 then inc(result.ColGlass);
  end;
  Free;
 end;
end;
I'm learning to live...

Последний раз редактировалось Stilet; 02.12.2015 в 22:31.
Stilet вне форума Ответить с цитированием
Старый 03.12.2015, 11:25   #13
yana1996
Пользователь
 
Регистрация: 02.12.2015
Сообщений: 38
По умолчанию

сейчас мне еще больше не понятно как делать мою лабу (
yana1996 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
СРОЧНО СРОЧНО!!! ВЫРУЧИТЕ!!!! Выборка и перенос данных Stiven_Sammers Microsoft Office Excel 19 20.07.2015 15:39
СРОЧно нужна помощь(одномерный массив)СРОЧНО, МОГУ заплатить. warsong Фриланс 12 11.01.2010 20:30