кто рубит в паскале?

исходник 3 метра ровно

Добавлено через 4 минуты
Касательно кода - я фиг че понял. Что из этого нуна, а что нет? Я с СИ никогда не общался

 

а зачем они здесь?


для оригинальной проги: может нужно насильно вычистить буфер выходного файла

 

2 CaH51o
а как?
2 Dimouse
Чейто я туплю. Чесно говоря не очень понимаю, как эта прога работает. Можно с примером и ражжеванно построчно?

 

Malcolm, flush

 

BlockRead/BlockWrite если мне не изменяет память пользуются для буферизированного ввода/вывода. Вот ток если как в примере - BlockRead (InFile, BufA, 1); то не пойму смысла - всерно читается/пишется ток по одному байту. А вообще ИМХО удобнее через потоки, по крайней мере в Дельфе...

 

Malcolm!

А зачем заново велисапет изобретать? У меня же ест тулзы, с помощью которых я локализацию делал. Все они конверсию в транслит и обратно для Даггера поддерживают (ты же не думаешь, что я текст суржиком даггеровским набирал? ). Можешь для этих целей использовать или RSC Editor или QRC Editor

Тулзы вот где и валяются: http://vxdao.hut1.ru/tools.html

Копируешь текст в буфер, вставляешь в окно редактора, конвертишь в транслит и дальше делаешь с ним что хочешь

ЗЫ Там же и исходники под C++Builder, если кому интересно

 

А мот люди в программировании хтят попрактиковаться? ИМХО эт иногда полезно )))

 

Спору нет, пусть практикуются

Таблица соответствий буковок:

Код:

char NewRusLetters[66]="ФИСВУАПРШОЛДЬТЩЗЙКЫЕГМЦЧНЯхжъЭЮбфисвуапршолдьтщзйкыегмцчняХЖЪБюэ";
char NewEngLetters[66]="ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^>`abcdefghijklmnopqrstuvwxyz{|}~<@";
 

Вот кусок кода, отвечающий за конверсию туда-обратно (и прошу прощения, если обломал с творческими поисками решения конверсии)

Код:

void __fastcall TForm1::Button4Click(TObject *Sender)
{
 TButton *sb=(TButton *)Sender;
 AnsiString f;
 int i,j,k;
 bool found=false;
 f=Memo->Text;//Копируем текст из окна редактора в промежуточный буфер
 sb->Tag=~sb->Tag;
 if(sb->Tag==0)sb->Caption="Rus -> Eng";
 else sb->Caption="Eng -> Rus";
 for(i=1;i<=f.Length();i++)
 {
  //пропуск при натыкании на спецкоды форматирования, которые надо пропустить при конверсии
  if(f.SubString(i,3)=="<0x")
  {
   for(j=i+1;j<=f.Length();j++)if(f[j]=='>')break;
   i=j;
  }
 }
 //или переменные, которые иногда встречаются в текстах Даггеровских
 else if(f[ i]==dfVar1)
 {
  for(j=i+1;j<=f.Length();j++)
  if((f[j]<'a' || f[j]>'z')&&(f[j]<'0' || f[j]>'9'))break;
  i=j-1;
 }
 //тоже переменные
 else if(f[ i]=='_' || f[ i]=='=')
 {
  for(j=i+1;j<=f.Length();j++)
  if((f[j]<'a' || f[j]>'z')&&(f[j]<'0' || f[j]>'9'))break;
  i=j-1;
 }else
 //Вооот! А теперь нормальный текст, вот его и будем конвертить
 {
  found=false;
  //Поиск соответствия в таблице в зависимости от направления конверсии
  for(j=0;j<66;j++)
  {
    if(sb->Tag==0 && f[ i]==NewEngLetters[j])
    {found=true;break;}
    else if(f[ i]==NewRusLetters[j])
    {found=true;break;}
   }   
   //Если есть чего конвертить, конвертим текущий символ
   if(found)
   {
    if(sb->Tag==0)f[ i]=NewRusLetters[j];
    else f[ i]=NewEngLetters[j];
   }
  }
 }
 //Окончательный вариант заносим в окно редактора
 Memo->Text=f;
}

Добавлено через 9 минут
Если хотите попрактиковаться, пусть напишут редактор картинок Даггеровских, чтобы тексты можно было на них править, а то лично у меня только просмотрщик вышел.

Еще интересная задача - редактор шрифтов

 

VorteX DrAgON, говорят же, что надо паскаль а не с++

 

Мона б и поковыряться... ток у мя Даггер-а нетути. Тама ж видать как обычно каки-то свои форматы бут? Короче, в чем собсно задача - расковырять форматы (картинок, шрифтов) или написАть алгоритмы для ряботы с какими-то форматами?

 

CaH51o
>> говорят же, что надо паскаль а не с++

А это родственные языки. Переделать трудов не составит на тот же Дельфи

CryAngel
>> Короче, в чем собсно задача - расковырять форматы (картинок, шрифтов) или написАть алгоритмы для ряботы с какими-то форматами?

Формат расковырян давно. Нужна возможность накладывать матрицы букв на эти картинки и сохранять в том же формате эти картинки. Я из-за нехватки времени только на просмотрщик сподобился.

ЗЫ А вообще меня больше интересует формат графических файлов из Battlespire, вот где просто рай для кодеров, ибо там часть картинок зашифрована, а с механизмами шифрования я не занимался.

 

VorteX DrAgON, очень родственные, один структурный, a другой объектно ориентированный. Как ты на паскале объекты кнопок создавать собрался
А переделать при желании можно куда угодно, хоть на машину Тюринга

 

VorteX DrAgON, ок. напису ишшо тута... тоесть ты хош чтоб примерно как в фотошопе, прям по картинке писАть мон было? Не карандашом, как в паинте, по точке, а типа каку букавку на клаве нажал, та и на картинке нарисовалась?

 

а может лучше сделать конвертер форматов?

 

Гм... а мот и конвертор... Так мот даже проже бут - править в любом графическом редакторе мон будет... над подумать

 

очень родственные, один структурный, a другой объектно ориентированный.

Delphi и C++Builder - обе среды объектно-ориентированные, и пример я привел на ООП

Как ты на паскале объекты кнопок создавать собрался
Никак, а речь просто зашла о Дельфи, а это уже далеко не простой структурный Паскаль

 

Тов. Вортех! Чесно говоря я как то и не подумал спросить про эти прогу у тебя. На сайте то твоем их не увидал (ибо слепенький) и давай сам копаться... Попрактиковаться конечно нуна, но лениво. Спасибо за ссылочки