паскаль (лёгкий)

[Rinafox]

1. файл содержит сведения о списочном составе предприятий,
каждая запись которого содержит поля: наименование предприятия и количество рабочих.
2.Выдать информацию о предприятиях в порядке уменьшения списочного состава

[beegl]

попробуйте один из этих паков компонентов:

[digitalis]

А что, бывает Паскаль тяжелый ?

[beegl]

ошибся, вот, то, что надо: Data Import

Import - это из *.xls файла в форму делфи. (ввоз из-за границы) // задание
Export - из формы делфи в *.xls файл. (вывоз за границу)

[Аватар]

Ага, для пионерской задачки как раз подходит. И вообще чего мелочиться - забабахать сервер баз данных, сервер приложений и тонкого клиента. Как раз для этой задачи ))

[digitalis]

В дремучие древние времена, когда еще не дошла наука до (см. посты 2,4) это бы сделали приблизно так:
var

  Form1: TForm1;
  F: Text ; 
  plants: array[0..800] of string[60] ;
  Ludy: array[0..800] of integer ;
implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
var
 i, n, j, l, m, im : integer;
 stro: string ; 
begin
  AssignFile (F,'D:\\DATA\\data10.txt') ;
  Reset (F) ;
  i := 1 ;
  n := 0 ;
  while (i>0) do
    begin
     ReadLn(F,plants[n]) ;
     l := Length (plants[n]) ;
     if l > 1 then
       begin
         l := Pos ('/',plants[n]) + 1 ;
         stro := Copy (plants[n],l,16) ;
	 Ludy[n] := StrToInt (stro) ;
         plants[n] := Copy (plants[n],1,l-2) ;
         Inc (n)
       end
      else i:= 0
    end ;
  CloseFile (F) ;
  for i := 0 to n-1 do
    begin
      m := 0 ;
      for j := 0 to n-1 do
        if Ludy[j] > m then
           begin m := Ludy[j] ; im := j end ;
      Memo1.Lines.Add (Format ('%40s %6d',[plants[im],Ludy[im]]) ) ;
      Ludy[im] := 0
     end ;
 end ;

end.

Название завода отделил разделителем / от числа трудяхщихся, конец файла - короткая строка из одного символа.
Вы спросите - почему на Дельфях ? HZ Попробовал на ТрубоПлескале, так он говорит, что доступ к моему файлу Asses denied, хотя для Дельфия - никакого денид. Само собой, вместо AssignFile был Assign , но увы...

Арбузолитейный завод /1234
Мухобойная фабрика/4567
Завод "Красная синька"/2345
=
-----------------------------------
Мухобойная фабрика 4567
Завод "Красная синька" 2345
Арбузолитейный завод 1234

=================================== =========

PS А все-таки отчего этот Asses denied в TP7, а из Дельфи - нормальный доступ ?

[digitalis]

Нет, серьезно, уже сама задачка - фиг-с-ней, но как такое может быть (см. скрин) ?Файл самый обычный, никаких скрытых и прочих атрибутов, читается и блокнотом, и из Дельфи, никем другим не занят, а тут... Какой Демид, бляха-муха !?
А может, какого uses'а нехватает ? Или в настройках TP7 чего пошевелить надо?
Я ТурбоПаскалем никогда не занимался, мне вполне Дельфи хватает, вот разве студеням помочь - сначала внучке, а потом втянулся - и форумским лентяям...

[Аватар]

А он понимает двойной обратный слеш? Оставь одинарные

[digitalis]

Действительно. Почему-то мне казалось, что при одинарном выскакивает ошибка компиляции. Ан нет, все ОК. Thanks.
Остались только крякозябры в русском тексте, но это мне уже неинтересно, бог с ним, с Пескалем. Одной непоняткой меньше. А тексты можно и на анг'ельском. Без него уже все равно никуда, ни в Красну Армию.