VPF::Запись в файл с определенной позиции

ZIFIR

Дата 25.8.2008, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 8.3.2006

Репутация: нет
Всего: нет

Нужно записать в файл строку. Первое значение должно начинаться с 10 позиции
(как бы 10 пробелов + Значение), далее еще 30 пробелов и значение и тд.
Т.е. каждое значение должно начинаться с определенной позиции в строке.
В конце строки перевод коретки.
Пример:
Значение1 Значение2
Значение11 Значение22

VICTAR

Дата 26.8.2008, 05:49 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80

А в чем собственно вопрос?

ZIFIR

Дата 26.8.2008, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 8.3.2006

Репутация: нет
Всего: нет

Вопрос в том, что я точно не знаю сколько пробелов должно быть между значениями, у них размеры разные. Известно только, с какой позиции должно начинаться значение. Допустим я получаю в переменную число пробелов, пусть 10, как их вставить? Или циклом прибавлять пробелы " "?
Или может быть позицию можно как нибудь указать с каакой записывать значение?

ama_kid

Дата 26.8.2008, 19:38 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95

Цитата(ZIFIR @ 26.8.2008, 19:14

)

Вопрос в том, что я точно не знаю сколько пробелов должно быть между значениями

Ага, ты не знаешь, а мы должны это знать? smile

Ну напиши функцию, которая будет из переданного ей значения выдавать строку, расширенную до определенного количества символов. Например, так:

Код

function FloatToStrExpand(Val:real;Signs:byte):string;
begin
 Result:=FloatToStr(Val);
 if Length(Result)>Signs then SetLength(Result,Signs)
 else while Length(Result)<Signs do
  Result:=Result+' ';
end;

В итоге, получишь строку занимающую ровно заданное количество символов. Ну а затем просто пиши подряд получившиеся строки для всех значений, которые надо вывести...

--------------------

самурай без меча подобен самураю с мечом, но только без меча

ZIFIR

Дата 26.8.2008, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 8.3.2006

Репутация: нет
Всего: нет

Как раз пишу подобную функцию, я просто думал может можно сразу указать позицию.
Всем спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »