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

Очень надо срочно перегнать небольшой фрагмент 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();

для целых