Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

работа со string ом   Найти похожие ветки 

 
Konus   (2007-05-07 06:26) [0]

есть несколько параметров (Имя, дата, информация)
на имя отведено 15 символов, на дату - 10, на информацию - 30

необходимо неиспользованные символы заполнять пробелами (например, если имя заняло 11 символов, забить после него 4 пробела, за которыми пойдет дата, занимающая 10 символов, потом информация, за которой снова заполняются пробелы)
каким образом это можно реализовать?


 
Думкин ©   (2007-05-07 06:45) [1]

Источник данных, приемник данных? Что дано, что в итоге надо получить?

Навскидку - строка из 55 символов, которую заполняем Филлчаром пробелами. Потом копируем исходные в нужные позиции.


 
Konus   (2007-05-07 06:50) [2]

заполняем имя, дату, информацию в разные edit, после чего все эти данные переносятся в мемо, но неиспользованные символы заполняются пробелами


 
{RASkov} ©   (2007-05-07 06:56) [3]

> [2] Konus   (07.05.07 06:50)

Изврат какой-то..... Попробуй так:
function SetStr(const Value: String; const NLen: Integer): String;
begin
 Result:=Value;
 Result:=Result+StringOfChar(" ", NLen-Length(Result));
end;

function SetLine(const AName, ADate, AInf: String): String;
begin
 Result:=SetStr(AName, 15)+SetStr(ADate, 10)+SetStr(AInf, 30);
end;
Вызов
Memo.Lines.Add(SetLine(EditName.Text, EditDate.Text, EditInfo.Text));


 
Konus   (2007-05-07 07:17) [4]

большое спасибо, попробую


 
{RASkov} ©   (2007-05-07 08:24) [5]

> [4] Konus   (07.05.07 07:17)

Только не обижайся если в Меме(TMemo) они(строки) будут "не ровные"("столбцы плывут") - это, возможно, из-за шрифта :)
Если хочешь, чтоб в Мемо выглядело красиво, "ровняй" табами... или моноширный шрифт.
Кстати, вот вариант, чет сразу и забыл про него :)
Memo.Lines.Add(Format("%-15s%-10s%-30s", [EditName.Text, EditDate.Text, EditInfo.Text]));


 
Konus   (2007-05-07 12:00) [6]

да, шрифт сразу сделал моноширинный, спасибо большое
второй вариант очень удобный ;)



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
1-1175324163
Hro
2007-03-31 10:56
2007.05.27
Unicode


2-1178585925
Booka Shade
2007-05-08 04:58
2007.05.27
Поиск в файле, по маске.


2-1178865815
Wood
2007-05-11 10:43
2007.05.27
Помогите с SQL - INSERT,


15-1177411473
CCili
2007-04-24 14:44
2007.05.27
Купить мобильник через интернет. Подскажите где?


2-1178715396
Вася
2007-05-09 16:56
2007.05.27
Обмен данными между приложениями.