Delphi! хелп!!!

[melissa]

For i := 1 To 15 Do

  begin

    Readln(File, P);

  end;

 

есть файл состоящий из 40 строк, есть массив V[1..15] заполненный случайными числами от 1 до 40.

Можноли заполнить массив P[1..15] из этого файла, но чтобзначения брались из строки номер которой = V[1..15]??

 

Хелп, а то завтра мне от препода пиздец

[T3h1D0L]

Ответ элементарен — можно.

[melissa]

тогда напрашивается не мене элементарный вытекающий вопрос - КАК??

[XpoHuK]

считывай все строки и считай их

[Magot]

for i:=1 to 40 do Readln(File,all[i]);
for i:=1 to 15 do P[i]:=All[v[i]];

[melissa]

пробовал процедуру seek но она не пашет с типом TextFile

считывай все строки и считай их

была такая мысь, но неуженли нет пороще способа без лишних строк кода??

[Magot]

по-другому надо использовать типизированные файлы, но там заморочка на считывании строк, короче вон там сверху код это самое простое

[XpoHuK]

пробовал процедуру seek но она не пашет с типом TextFile

считывай все строки и считай их

была такая мысь, но неуженли нет пороще способа без лишних строк кода??

лол? куда легче?

[melissa]

Вот такая поебень выскакивает

[Gadenish]

У тебя за границы массива указатель вышел походу дай код чоле

[melissa]

AssignFile(File, GetCurrentDir + '\db\po.vo');
Reset(File);
for k := 1 to 40 do

readln(File, o[k]);

reset (File);
For i := 1 To 15 Do
  begin
    P[i]:=o[v[i]];
  end;
CloseFile(File);

 

O: array[1..40] of string;

P: array[1..15] of string;

V: array[1..15] of integer;

[Tekirinka]

а у тебя массив V инициализируется?

[Magot]

1.неинициализирован V

2.неадекватное обращение к файлу, или в нем не 40 строк.

[melissa]

Массив V заполнен ранее случайными числами 1-40, в файле ровно 40 строк.. В чем заключается неадекватнсть обращения к нему??

[Tekirinka]

мб в файле строки идут от 0 до 39?

[XpoHuK]

так на какой строке ошибку выдает?

[Magot]

в конце файла сделай пустую строку

[melissa]

for i := 1 to 15 do
     UsedNums[i] := True; 

   for i := 1 to 15 do begin
     repeat 
       r := random(60) + 1; // from 1 to 60
     until UsedNums[r];
     UsedNums[r] := False;
     RandomValues[i] := r;
     ShowMessage('int = '+IntToStr(r));
   end; 

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

[Анальных Дел Мастер]

Задача уныла.

А вот если перефразировать ее:

"Можноли заполнить массив P[1..15] из этого файла, но чтобзначения брались из строки номер которой = V[1..15]??

и при этом НЕ ИСПОЛЬЗОВАТЬ другие лишние массивы"

[XpoHuK]

Задача уныла.

А вот если перефразировать ее:

"Можноли заполнить массив P[1..15] из этого файла, но чтобзначения брались из строки номер которой = V[1..15]??

и при этом НЕ ИСПОЛЬЗОВАТЬ другие лишние массивы"

лол? а зачем использовать другие массивы? читаешь все строки подряд и заполняешь массив