ArenaZ

1
unit MeshData;
2

3
{$IFDEF FPC}
4
  {$MODE Delphi}
5
{$ENDIF}
6

7
interface
8

9
uses
10
{$IFnDEF FPC}
11
  Windows,
12
{$ELSE}
13
  LCLIntf, LCLType, LMessages,
14
{$ENDIF}
15
  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
16
  Dialogs, StdCtrls, ComCtrls;
17

18
type
19
  TfrmMeshData = class(TForm)
20
    rdMeshData: TMemo;
21
  private
22
    { Private declarations }
23
  public
24
    { Public declarations }
25
  end;
26

27
procedure ShowMeshData(const aList : TStringList);
28

29
implementation
30

31
{$IFnDEF FPC}
32
  {$IFnDEF FPC}
33
  {$R *.dfm}
34
{$ELSE}
35
  {$R *.lfm}
36
{$ENDIF}
37
{$ELSE}
38
  {$R *.lfm}
39
{$ENDIF}
40

41
procedure ShowMeshData(const aList : TStringList);
42
var
43
  lfrm : TfrmMeshData;
44
begin
45
  if aList = nil then
46
    Exit;
47
    
48
  lfrm := TfrmMeshData.Create(nil);
49
  try
50
    lfrm.rdMeshData.Lines.Assign(aList);
51
    lfrm.ShowModal;
52
  finally
53
    FreeAndNil(lfrm);
54
  end;
55
end;
56

57
end.
58