|
SizeRow,SizeColumn: Integer; //Реальные количества строк и столбцов
N: Integer; //Реальный размер вектора
Implementation
{$R *.DFM}
Следует отметить, что Delphi 5 производит считывание данных в строку. Поэтому программа должна выделять из введенной строки первую подстроку, преобразовывать ее в число и присваивать полученное значение первому элементу массива, затем выделять вторую подстроку, преобразовывать ее в число и присваивать полученное значение второму элементу массива и т.д. для каждого элемента массива.
Функция пользователя SelectNumber осуществляет анализ считанной строки на наличие пробелов и производит выделение очередного числа. Предопределенная переменная Result является внутри функции синонимом ее наименования:
function SelectNumber (St:string; Number:Integer): string;
Var
i, P: Integer;
Вegin
//Удаление пробелов в начале строки
if St = '' then exit;
while St[1] = ' ' do
Begin
Delete(St,1,1);
if St = '' then break;
End;
//Выделение подстроки под номером Number
for i:= 1 to Number-1 do
Begin
Delete (St,1,Pos(' ',St));
if St = '' then break;
while St[1]=' ' do
Begin
Delete (St,1,1);
if st = '' then break;
End
End;
P:= Pos (' ',St);
if P <> 0 then
Result:= Copy (St,1,P-1)
Else
Result:= St;
End;
Обработчик события “нажатие на кнопку “Ввод”обеспечивает считывание из полей редактирования размера вектора, его элементов и контролирует правильность их ввода. Обработчик использует функцию SelectNumber иметод SetFocus, осуществляющий позиционирование курсора в соответствующие поля редактирования:
procedure TForm1.btnVectorClick (Sender: TObject);
Var
i: Integer; //параметр цикла, индекс
Code: Integer; //код ошибки
StrN, StrI: String [10];
Kol: Integer;
Begin
StrN: =edtSizeVector.Text;
Дата добавления: 2015-07-10; просмотров: 56 | Нарушение авторских прав