哪位给一个在‘console application’中使用OOD方法的例子

Question

我觉的写Console Application或者写Window Application用OOD都好象没有区别啊？？

Answer 1

实例 已 test okprogram Project1;{$APPTYPE CONSOLE}
uses
  SysUtils;type
   TDos=class
     private
       FStr:String;
       Function GetFStr:string;
       procedure SetFStr(value:string);
     public
       function getValue:Integer;
       procedure OutValue(s:string);
       constructor Create(S:String);
     Published
       property Str:String Read FStr Write FStr;
       property FFStr:String Read GetFStr Write SetFStr;
    end; constructor TDos.Create(S:String);
  begin
    Inherited Create;
    Self.FStr:=S;
    Writeln('我正在被创建');
    Writeln;
  end; function TDos.GetFStr:string;
   begin
    GetFStr:=Self.FStr;
   end;
 procedure TDos.SetFStr(Value:string);
   begin
    if Self.FStr<>Value then Self.FStr:=Value;
   end;
 function TDos.getValue:Integer;
    var I:Integer; CanExit:Boolean;
     begin
      CanExit:=False;
     Repeat
      try
        Readln(I);
       except
        writeln('please input valid integer value');
        Continue;
       end;
       Break;
      Until CanExit;
      GetValue:=I;
     end;
  procedure TDos.OutValue(S:String);
    begin
      Writeln('lwm8246 you input Value is '+S);
      Writeln;
      Writeln('Please Press Any Key To Exit');
    end;
  var A:TDos;
      i:Integer;
      S:String;
begin
  a:=TDos.Create(' "Self Create" ');
  // Disp TDos.FStr;
   Writeln('TDos.FStr Value is '+A.FStr+' TDos.Str is '+A.Str);writeln;
  //
  A.Str:='CSDN';
   Writeln('TDos.FStr is '+A.FStr); writeln;
//
  Writeln('Read GetFStr '+A.FFStr);writeln;
//
  A.FFStr:='lwm8246';
  Writeln('TDos.FStr is '+A.FStr);writeln;  writeln('This is console program demo please input a Value of Integer');
  i:=a.getValue;
  a.OutValue(intTostr(i));
  Readln;
  a.Free;  // Insert user code here
end.