емент масиву з рядків
except// Якщо аварія
InMass.Mass [CurRow, CurCol]: = 0;// Привласнюємо елемнтов 0
end;
Inc (CurCol) ;//Перейшли до слід. стобцу масиву
InStr: ='';
end; {If Length (InStr)> 0 Then}
end;
end;
procedure TMainForm.VS_GetRazmOnFile (FileName: String; var Col,
Row: Integer);
Var F: TextFile;// Описали змінну роботи з текстовим файлом
RezStr: String;
begin
Col: = 0;
Row: = 0;
AssignFile (F, FileName);
Reset (F);
While Not Eof (F) Do
Begin
ReadLn (F, RezStr);
If (Row = 0) And (Length (RezStr) <> 0) Then Col: = VS_GetColOnFile (RezStr);
Inc (Row);
end; {While Not Eof (F) Do}
CloseFile (f);
end;
function TMainForm.VS_GetColOnFile (InStr: String): Integer;
Var
N: Integer;
RezStr: String;
begin
inStr: = Trim (InStr);// Видалили прогалини з обох кінців рядка
Result: = 0;
While Length (InStr)> 0 Do
Begin// Запускаємо цикл доти, поки рядок має значення
N: = Pos (# 32, InStr);// Знайшли найближчий пробіл
If N <> 0 Then
Begin// Дійсно у нас знайшовся прьблел
RezStr: = Copy (inStr, 1, N);
Delete (inStr, 1, N);
RezStr: = Trim (RezStr);// Видалили зайві пробіли
Inc (Result) ;//Перейшли до слід. стобцу масиву
end {If N <> 0 Then}
Else
// Пробілу нету, можливо, це останній символ
If Length (InStr)> 0 Then
Begin// Є значення
Inc (Result) ;//Перейшли до слід. стобцу масиву
InStr: ='';
end; {If Length (InStr)> 0 Then}
end;
end;
procedure TMainForm.N10Click (Sender: TObject);
begin
VS_LoadData (MassB);
end;
end.
Для підготовки даної роботи були використані матеріали з сайту
