Чем заменить assign

[pasha_1994]

Нужен код(типа assign) который будет работать с текстовым файлом. НУ думаю если assign то понятно,что паскаль.

[Utkin]

Что значит код типа assign?
ЗЫ. Assign еще используется в Дельфи и совсем по-другому поводу тоже.

[pasha_1994]

Давай по другому:нужен код в TP который будет работать с текстовым файлом(а именно считывать от туда данные и присваивать их какой-либо переменной.

[Alex_FF]

var
  S: String;
begin
  Assign(Input, 'input.txt');
  Reset(Input);
  ReadLn(S);
end.

А что конкретно надо?

[jungle]

Можно и на winapi (_lopen, _hopen, CreateFile etc.)

[Alex_FF]

Сообщение от jungle

Можно и на winapi (_lopen, _hopen, CreateFile etc.)

ему на турбо паскале надо...

[dr.Chas]

uses crt;
var  s, sc: string;
      txt: text;
begin
  clrscr;  
  assign(txt, 'C:\txt.txt');
  reset(txt);
  sc:='';
  while not eof(txt) do
  begin
    readln(txt, s);
    sc:=sc+s+#10#13;
  end;
  close(txt);
  writeln(sc);
  repeat
  utinl keypressed;
end.

Если хочешь хранить одной строкой меняй это #10#13 либо на пробел, либо вообще убери, дело твоё.