Ввод строки типа 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
  Crt, 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 i < SizeOf(Buf) do
      begin
        c := ReadKey;
        if c = #13 then Break;
        Write( c );
        Buf[i] := c;
        Inc(i);
      end;
    Realloc(Pointer( r ), n, n + i + 1);
    Move(Buf, r[n], i);
    Inc(n, i);
  until c = #13;
  Writeln;
  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.

Всё, пошёл спать... (кстати, (с) в коде заменяется на символ ©, в r в том же месте - на ®)

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