Перевод программы, из Delphi в С++ Builder Опции

[Jaxx]

Надо небольшую программку перегнать из Delphi в С++ Builder. Где-то читал, что для этого есть специальный софт. Рылся я в интернете и ничего не нашел толкового. Как мне побыстрее это дело провернуть?

[Romtek]

Pascal to C/C++ converter

PTOC

PTOC can convert Turbo Pascal as well as ANSI Pascal (with conformant arrays) to C or C++ language. The primary idea of this converter is to produce readable and supportable code which preserves style of original code as far as possible.

Converter can produce both C++ and C output. Using of C++ language allows to encapsulate some Pascal types and constructions into C++ classes. So mapping between Pascal and C++ becomes more direct than between Pascal and C.

Also Borland Graphics Interface (BGI) emulation libraries for X-Windows and Windows-95/NT are included in this distribution. (BGI emulator can be used as separate library without converter) BGI for MS-Windows strictly implements most of BGI functions using WIN32 API calls (direct work with palette is only possible in 256-color Windows mode).

Пробовал?

Сообщение отредактировано: Romtek - 28.06.2005 11:12

[Jaxx]

Почитал я инфу о этой программке, говорят, что она подходит только для старых версий Паскаля, а под Delphi идет очень плохо, тем более под версии начиная с 6-ой.
Может вы чем подмогнете? Программка такая (на Delphi):

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  f:textfile;
  i,r:byte;
  st:string;
begin
randomize;
  i:=0;
  assignfile(f,'index.txt');
  reset(f);
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Memo3.Lines.Clear;
  st:='';
r:=1+(random(73));
  Label2.Caption:=IntToStr(r);
   for i:=1 to ((r-1)*3) do readln(f,st);
   readln(f,st);
   Memo1.Lines.Text:=st;
   st:='';
   readln(f,st);
   Memo2.Lines.Text:=st;
   st:='';
   readln(f,st);
   Memo3.Lines.Text:=st;
   st:='';
   i:=0;
end;

[Jaxx]

Я уже кое-что начал писать. Но есть некоторые трудности. Мне нужно прочитать в поля Memo строки из файла, но не какие попало, а с определенными номерами. как это сделать?

Jaxx, это все-таки

Конференции по вопросам разработки ПО в среде Delphi.

а не в среде BCB :no:

Сообщение отредактировано: volvo - 28.06.2005 14:29