BPascal

← →
balepa (2008-10-17 13:54) [0]

Есть файл текстовый в нем первая строка содержит количество строк и столбцов через "-". Пример 2-2
Никак нимогу вытащить эти числа из строки в переменные типа Integer.
Поможите чем можите.

← →
balepa (2008-10-17 13:54) [1]

... именно в BPascal 7.1

← →
Palladin © (2008-10-17 13:55) [2]

Pos, Val

← →
Плохиш © (2008-10-17 13:55) [3]

там тоже были pos/copy

← →
Palladin © (2008-10-17 13:56) [4]

пошел бы учебники почитал

← →
Palladin © (2008-10-17 13:56) [5]

это я автору

← →
Плохиш © (2008-10-17 13:56) [6]

> Palladin © (17.10.08 13:56) [4]
> пошел бы учебники почитал

Не царское это дело...

← →
Плохиш © (2008-10-17 13:57) [7]

> Palladin © (17.10.08 13:56) [5]

:-)

← →
Сергей М. © (2008-10-17 13:57) [8]

Строк=Copy(ПерваяСтрока, 1, Pos(ПерваяСтрока, "-")-1)
Столбцов=Copy(ПерваяСтрока, Pos(ПерваяСтрока, "-")+1, Length(ПерваяСтрока));

← →
Плохиш © (2008-10-17 13:58) [9]

> Сергей М. © (17.10.08 13:57) [8]

Ну вот пришёл и всё опошлил...

← →
Сергей М. © (2008-10-17 14:01) [10]

> Плохиш © (17.10.08 13:58) [9]

Ладно, в след.раз я уступлю тебе это почетное право)

← →
Palladin © (2008-10-17 14:03) [11]

Тут люди в паре работают и меняются периодически - плохой-хороший :))

← →
Сергей М. © (2008-10-17 14:04) [12]

> Плохиш © (17.10.08 13:58) [9]

Кстати, в пошлом фрагменте про интеджер я не пошлил, так что и на твою долю, думаю, хватит, когда услышишь заветное "Не компилицца !")

← →
Сергей М. © (2008-10-17 14:05) [13]

> Palladin © (17.10.08 14:03) [11]

К Лубянке, клянусь, не причастен)

← →
balepa (2008-10-17 14:08) [14]

Да что вы, сразу наехали, понаписали стока, почитал, нашел, вопрос снимается.

Кстати давно заметил что как тока сюда напишу вопрос, тут же на него и отвечаю сам.
Про copy совсем забыл или незнал :)

Сергей М. © (17.10.08 13:57) [8]
Спасибо.

← →
Ega23 © (2008-10-17 14:10) [15]

> Кстати давно заметил что как тока сюда напишу вопрос, тут
> же на него и отвечаю сам.

Это нормально, у меня вообще 80% вопросов отпадают в момент создания нового сообщения. Пока формулируешь мысль - находишь ответ.

> Про copy совсем забыл или незнал

Сейчас опять спошлю:

"Если у Вас, товарищ курсант, голова как унитаз и в ней ничего не держится, то заведите себе записную книжку или лучше две, как у меня !" (с) (армейск.)

> Пока формулируешь мысль - находишь ответ.

Это если её формулировать :)
Избегать дополнительных и уточняющих вопросов, быть готовым (тем не менее) отвечать на уточнения и т.п.
Тогда действительно - часто
А если: Застопорился и не мысля ни секунды: "А чего оно?", то долго ждать ответа приходится :))

← →
balepa (2008-10-17 14:31) [18]

> Сергей М. © (17.10.08 14:18) [16]
>
> > Про copy совсем забыл или незнал
>
>
> Сейчас опять спошлю:
>
> "Если у Вас, товарищ курсант, голова как унитаз и в ней
> ничего не держится, то заведите себе записную книжку или
> лучше две, как у меня !" (с) (армейск.)

Да, ладно...
Очень редко пользуюсь текстовыми файлами и функциями для "String"ов", кроме Format,StrToInt,IntToStr, но это в Delphi, а к Паскалю давно неприкосался.

> Избегать дополнительных и уточняющих вопросов, быть готовым
> (тем не менее) отвечать на уточнения и т.п.
> Тогда действительно - часто

А я так обычно и пишу.
Типа, проблема - такая-то, делал - то-то, результат - такой-то. Смотрел там-то, там сказано то-то.

Пока так оформишь - в 80% случаев ответ сам находишь до того, как вопрос отправил.
А из отправленных - в 40% случаев посмотришь на него, перечитаешь, подумаешь: "А я ведь ещё вот это не проверил!". Проверяешь - и "вопрос снят".

При столь гениальной формулировке вопроса

> Никак нимогу вытащить

охотно верю в

> давно неприкосался

)

← →
balepa (2008-10-17 15:03) [21]

> Сергей М. © (17.10.08 14:39) [20]
> При столь гениальной формулировке вопроса
> > Никак нимогу вытащить
> охотно верю в
> > давно неприкосался>
> )

Так я ж, и не вру.

"Корректно оформляйте заголовок ветки, который должен кратко отражать суть вопроса"

BPascal Найти похожие ветки