Ввод строки типа 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]

По-крайней мере я не могу создать комбинацию, при которой это происходит
В рамках моей задачи такой вариант подходит, однако правильнее все-же отслеживать состояние кучи.

При чтении таким образом двух строк одна из них будет затирать содержимое другой. Кроме того, во всех предложенных выше вариантах не работает пененаправление ввода, необходимое по условию задачи. Вот мой исправленный вариант:

program LongStr;

uses
  Strings;

procedure Realloc(var p: Pointer; OldSize, NewSize: Word);
var
  t: Pointer;
begin
  GetMem(t, NewSize);
  if p <> nil then
    begin
      if OldSize < NewSize then
        Move(p^, t^, OldSize)
      else
        Move(p^, t^, NewSize);
      FreeMem(p, OldSize);
    end;
  p := t;
end;

function ReadLongStr: PChar;
var
  Buf: array[0..255] of Char;
  c: Char;
  i, n: Integer;
  r: PChar;
begin
  r := nil;
  n := 0;
  repeat
    i := 0;
    while not Eoln and (i < SizeOf(Buf)) do
      begin
        Read( с );
        Buf[i] := c;
        Inc(i);
      end;
    Realloc(Pointer( r ), n, n + i + 1);
    Move(Buf, r[n], i);
    Inc(n, i);
  until Eoln;
  Readln;
  r[n] := #0;
  ReadLongStr := r;
end;

procedure FreeLongStr(s: PChar);
begin
  FreeMem(s, StrLen(s) + 1);
end;

var
  a, b: PChar;

begin
  a := ReadLongStr;
  b := ReadLongStr;
  Writeln(a);
  Writeln(b);
  FreeLongStr(a);
  FreeLongStr(b);
end.

Сообщение отредактировано: xds - 15.11.2006 18:11