Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

V : tVector;



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 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.007 сек.)