Предыдущая страница реферата | 25  26  27  28  29  30  31  32  33  34  35 | Следующая страница реферата

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);

Рекомендуем скачать другие рефераты по теме: доклад 6 класс, здоровый образ жизни реферат.





Предыдущая страница реферата | 25  26  27  28  29  30  31  32  33  34  35 | Следующая страница реферата