Объединенный Открытый Проект

Очень надо срочно перегнать небольшой фрагмент Delphi-кода в С++ Builder. Код следующий:

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®;
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;
end.

Да и менять ту не чего!


Вот смари!


MemoX->Lines->Text='Text';

Вроде чё то такое! не помню я, давно это было и не правдой...

Ну бля! я тебе про синтаксис!! А ты про баранов....
Ладно! нажимай F1, там пиши assignfile...


Кстати, помоему там работает Assignfile...Просто ты не верно оформляешь....

Да и reset(f); - должен работать !

А вот насчёт readln,a не знаю...

Эээ..кстати )


Memo1.Lines.LoadFromFile('file');

на си будет типа того же:

Memo1->Lines->LoadFromFile('File');


гыы..

Ну насччёт мата, это он у меня на автомате уже :(((


Я и не ругаюсь.. Но Хелп - нуно устанавливать! )

Jaxx Для того, чтобы ничего не съезжало, пользуйся тегом code (см. ссылку BoardCode в форме отправки сообщений), он сохраняет (по крайней мере, должен) все пробелы.
По поводу переноса: вообще, Borland C Builer (по крайней мере последние версии) может использовать DCU-файлы от Delphi.
wsx Употреблять мат без наличия обоснованной необходимости (а ее в данный момент не наблюдалось) действительно не советую. Как говорится, фильтруй базар.

Ну как файл прочитать, я разобрался. Написал вот что:


void __fastcall TForm1::Button1Click(TObject *Sender)

{

   file f;  

  unsigned char i,r;  

  char* st;  

Randomize;  

i=0;  

r=1+rand()%73;  

Label2->Caption=r;  

Memo1->Lines->Clear();  

Memo2->Lines->Clear();  

Memo3->Lines->Clear();  

st="";  

std::ifstream ist("Index.txt");  

Memo1->Lines->LoadFromFile("Index.txt");  

}


А как прочитать не все подряд, а определенные строки?

поясню

объявление:


FILE *<поток>;

FILE *f;



Открытие


fopen();

<поток> = fopen("путь к файлу", "тип")


тип указывется, как должен использоваться файл
r - открыть для чтения;
w - для записи;
w+ - для чтения и записи;
и т.д

Ввод и вывод данных в файл


getc();

putch();


соответсвенно посимвольно....


fgets();

fputs();


соответсвенно построчно


getw();

putw();


для целых