Русские субтитры: Добавление точек - Русские субтитры

Перейти к содержимому

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Добавление точек

#1 Пользователь офлайн   BedaZzle Иконка

  • Иконка
  • Отправить ЛС
  • Группа: Admin
  • Сообщений: 2 987
  • Регистрация: 22 Октябрь 02
  • Страна:
  • Прислал(a) субтитров: 98
  • Своих переводов: 16

Отправлено 17 Апрель 2007 - 02:15

Добавление точек в начало каждой строки оригинала.


// Add dotted line. Made by Bedazzle.

program AddDottedLine;

// ---------------------------------------------

const 
 symboltoadd = '.';

var
 n: Integer;
 i: Integer;

 txt:  String;
begin
 n := GetSubtitleCount;

 for i := 0 to n-1 do
 begin
	txt := symboltoadd + ''#13''#10 + GetSubtitleText(i);
	SetSubtitleText(i, txt);
 end;
end.

0

Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему