Исправить ошибки

[Smile189]

Как сделать так, что бы user имел доступ к нескольким программам записанным в файле(в файле они записаны без пробелов, например, 123 . и нам нужно запустить 2 программу или любую другую ) Проблема в том , что сейчас программа читает только 1 число

Я знаю, что нужно сделать User[i].whichprogr массивом, но у меня выходят ошибки

program Project1;

{$APPTYPE CONSOLE}



uses
  windows,
  SysUtils,
  Laba1 in 'Laba1.pas',
  laba2 in 'laba2.pas',
  Laba3 in 'Laba3.pas',
  Laba4 in 'Laba4.pas',
  Laba5 in 'Laba5.pas',
  Laba6 in 'Laba6.pas',
  Laba7 in 'Laba7.pas';

type
Tuser=record    
typeofuser:string;
login,pass:string;
whichprogr:string;
end;
type
   Tsort = record     
     login:  string[20];
     password: string [20];
   end;
  var  User:array[0..100] of Tuser;
  us:array[0..100] of Tsort;

  index:integer;

.......................


while not Eof(t1) do          //?·?????*???¬ ???*???? ???§ ???*?©?«?*
begin
Readln(t1,User[index].login);
Readln(t1,User[index].pass);
Us[index].login:=User[index].login;
Us[index].password:=User[index].pass;
Readln(t1,User[index].typeofuser);
i := 0;
while User[index].whichprogr[i-1] <> '' do //
begin
inc(i);
setlength(User[index].whichprogr, i);
Readln(t1,User[index].whichprogr[i-1]);
end;
Readln(t1);
Inc(index);
end;
CloseFile(t1); 

...........



if User[i].typeofuser='user' then
begin
write('Запустить лабу: ': ');
readln(whatcando);
if User[i].whichprogr='1' then  RunLaba1;
if User[i].whichprogr='2' then  RunLaba2;
if User[i].whichprogr='3' then  RunLaba3;
if User[i].whichprogr='4' then  RunLaba4;
if User[i].whichprogr='5' then  RunLaba5;
if User[i].whichprogr='6' then  RunLaba6;
if User[i].whichprogr='7' then  RunLaba7;
Break;
end;
end;

В файле информация записана так:
name2-логин
1111-пароль
user- тип пользователя
6-номер лабы, вот тут может быть написано вместо одной цифры несколько, например, 123 и при вызове 3 лабы она должна запуститься

[Aliens_wolfs]

Попробуй так

if User[i].typeofuser='user' then
begin
write('Запустить лабу: ': ');
readln(whatcando);
if Pos('1', User[i].whichprogr) <> 0 then  RunLaba1;
if Pos('2', User[i].whichprogr) <> 0 then  RunLaba2;
if Pos('3', User[i].whichprogr) <> 0 then  RunLaba3;
if Pos('4', User[i].whichprogr) <> 0 then  RunLaba4;
if Pos('5', User[i].whichprogr) <> 0 then  RunLaba5;
// И так далее
Break;
end;
end;

[Smile189]

Теперь программа после ввода имени файлы прекращает работать , до этого все нормально было
Можете посмотреть код ?

[Aliens_wolfs]

Теперь программа после ввода имени файлы прекращает работать , до этого все нормально было

Ну до этого она у тебя не запускала нужные процедуры RunLaba, видимо есть ошибка в каком то Laba.pas, проверь по отдельности каждую RunLaba тогда выявишь из за чего вылетает программа. и еще попробуй убрать break он у тебя походу весь цикл останавливает.

write('запустить лабу: ');
readln(whatcando);
if Pos('1', User[i].whichprogr) <> 0 then  RunLaba1;
if Pos('2', User[i].whichprogr) <> 0 then  RunLaba2;
if Pos('3', User[i].whichprogr) <> 0 then  RunLaba3;
if Pos('4', User[i].whichprogr) <> 0 then  RunLaba4;
if Pos('5', User[i].whichprogr) <> 0 then  RunLaba5;
if Pos('6', User[i].whichprogr) <> 0 then  RunLaba6;
if Pos('7', User[i].whichprogr) <> 0 then  RunLaba7;
Break; // Попробуй убрать
end;

Да кстати зачем у тебя 2 раза подряд файл закрывается, достаточно одного.

end;
CloseFile(t1);
CloseFile(t1); //закрываем файл
Sort;