Ввод строки типа Pchar Опции

[ammaximus]

В задаче ввод из входного потока.
Ввести 2 длинные строки.
программа<файл:
строка1
строка2

Ну я и пишу

Код

{X+}
var a,b:PChar;
    an,bn:integer;
    c:char;
    flag:boolean;
begin
{Intro}
flag:=True;
an:=0;
while flag do
begin
    read(c);
  If ord(c)=13 then
   flag:=false
  else a[an]:=c;
  inc(an);
end;
flag:=True;
bn:=1;
while flag do
begin
  read(c);
  If ord(c)=13 then
  flag:=false
  else b[bn]:=c;
  inc(bn);
end;
{/Intro}
writeln(a);
writeln(b);


readln;
end.

А как писать правильно? Как организовать ввод, если неизвестно кол-во символов?

[xds]

2 volvo
Работать будет, но в корне неверно, т. к. разрушает содержимое кучи:

uses Crt;

procedure input_pchar(var p: pchar);
var i: integer;
begin
  i := -1;
  repeat
    inc(i);
    p[i] := readkey; write(p[i]);
  until p[i] = #13;
  p[i + 1] := #0;
end;

{ Использовать так: }
var a: PChar;
    t: PChar;
begin
  new(a);

  new(t);
  t^ := 'x';

  input_pchar(a);

  writeln;
  writeln(a);
  dispose(a);

  Writeln(t^);

  dispose(t);
end.

Попробуй повводить строки подлиннее (символов по 40-60) и понаблюдай за значением t^ (которое, по-твоему, не должно меняться)...

Сообщение отредактировано: xds - 14.11.2006 20:55