アーティクル

#13 Article 6642 Posted at 1992/08/23 22:58:02 by 桑野誼智 (MAP2509) [KAKIOKI]

Subject: Re:*5 どいつもこいつも(笑) /6638 ... /6589 /6583

>　これだと文字列がコピーされてしまうので遅くなるような気が(^_^)

　うーん、わからない(^^;)。
　ひょっとしてポインタとかいうやつですか？

　マニュアル読んでもさっぱりわからないから全然使ったこと
無いんです。

program uniq;
var
  str1, str2 :^string;
  st         :Pointer;
begin
  new(str1);
  new(str2);
  new(st);
  str1^ := '';
  str2^ := '';
  while not(eof) do begin
    readln(str2^);
    if str1^ <> str2^ then begin
      writeln(str2^);
      st := str1;
      str1 := str2;
      str2 := st;
    end;
  end;
end.

　こうかしら？（書いてて意味わかってないです(^^;)）

　　　　　　　　　　　　　　　　　　　　桑野誼智♪
◎◎