[Pascal] Работа с массивами

[Vladislav125]

Помогите исправить ошибку вот отрывок программы ее не нужно изменять здесь все правильно:

Zapis=Record
    Kod:integer;
    Nazvanie:string[20];
    Kol_vo:integer;
    Prot:real;

вот программа:

Program primer;
uses crt;

Type
    Zapis=Record
    Kod:integer;
    Nazvanie:string[20];
    Kol_vo:integer;
    Prot:real;
    end;

Var f,f2:text;
i,j,N,nazv_a:integer;
 s1,s2:string;
ekz:array[1..100] of Zapis;
  X:Zapis;
BEGIN
i:=0;
Assign(f,'Çàïèñè.txt');
Assign(f2,'çàïèñè2.txt');
Reset(f);
Rewrite(f2);
While NOT Eof(f) do
                   begin
                   i:=i+1;
                   Readln(f,s1);
                   With ekz[i] do
                               begin
                               Kod:=trim(Copy(s1,1,20));
                               Nazvanie:=trim(Copy(s1,21,17));
                               Kol_vo:=trim(Copy(s1,37,41));
                               Prot:=trim(Copy(s1,45,51));
                               end;
                   end;
N:=i;
writeln(':');
writeln();

for i:=1 to n do
                with ekz[i] do
                if Nazvanie='Êîëüöåâàÿ' then
                         begin
                         writeln(Kod,' ',nazvanie,' ',Kol_vo,' ',Prot);
                         end;
                         Nazv_a:=i;



For i:=1 to N do
  With ekz[i] do
              begin
              Writeln(f2,Kod:20,' ',
                      Nazvanie:20,' ',
                      Kol_vo:4,' ',
                      Prot:10);
              end;
Close(f);
Close(f2);
END.

Ошибка вот здесь

begin
                               Kod:=trim(Copy(s1,1,20));
                               Nazvanie:=trim(Copy(s1,21,17));
                               Kol_vo:=trim(Copy(s1,37,41));
                               Prot:=trim(Copy(s1,45,51));
                               end;

я просто не могу понять на что изменить функцию trim. кто в этом разбирается измените пожалуйста.

[digitalis]

Язык какой ? С этого надо начинать вопрос. И почему ее нужно заменять? Если это Delphi, то это стандартная функция. Удаляет начальные и конечные пробелы.

[Vladislav125]

Язык паскаль, их поменять нужно из за того что ошибку выдает

[Sciv]

Да вот прямо из Дельфы код и выдернут:

function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  if (L > 0) and (S[I] > ' ') and (S[L] > ' ') then Exit(S);
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Exit('');
  while S[L] <= ' ' do Dec(L);
  Result := Copy(S, I, L - I + 1);
end;

[Vladislav125]

У меня язык паскаль, хотя они не чем не отличаются) Мне нужно только значение trim изменить и все, а я не знаю его на что изменить пробывал Val не получается

[Aleksandr H.]

Vladislav125 http://www.programmersforum.ru/showp...82&postcount=4

[Vladislav125]

Вы меня просто не поняли, мне только нужно значение поменять trim вот здесь

  begin
                               Kod:=trim(Copy(s1,1,20));
                               Nazvanie:=trim(Copy(s1,21,17));
                               Kol_vo:=trim(Copy(s1,37,41));
                               Prot:=trim(Copy(s1,45,51));
                               end;

[Sciv]

Владислав, мы Вас прекрасно поняли. Я Вам дал конкретное решение: если в паскале нет собственной функции trim - её нужно написать. Код функции я тоже дал. Просто добавьте его в свою программу и нигде больше ничего менять не нужно будет.

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

[AlexMas]

Ну и плюсом ко всему, не стоит пихать string в integer напрямую, есть чудесная ф-я StrToInt =)

[Serge_Bliznykov]

Сообщение от AlexMas

не стоит пихать string в integer

однозначно не стоит. да компилятор это и не позволит.

Сообщение от AlexMas

есть чудесная ф-я StrToInt

а вот тут беда-печалька.
судя по всему у автора темы Turbo Pascal. в нём не было функции StrToInt

впрочем, никто не мешает её написать (так же, как и trim())
примерно так:

function StrToInt(Value: string): integer; 
Var 
   code, i: integer; 
begin
   StrToInt:=0;
   Val(Value, i, code); 
   if code = 0 then 
      StrToInt:=i
   else
      WriteLn('#Error: inccorect integer value in string '+Value) 
end;