請問各位大大我想要把記事本裡面檔案座標在image連成曲線要怎麼在寫
例如:底下檔案這些座標.............................謝謝

附加檔案：4d21812b03b13_坐標.txt

編輯記錄

檔案內容、格式之類的資訊起碼要提供吧
只丟個問題 檔案就要答案
會不會太偷懶了點...

===================引 用 redskyroger 文 章===================
請問各位大大我想要把記事本裡面檔案座標在image連成曲線要怎麼在寫
例如:底下檔案這些座標.............................謝謝

這個動作 Excel 不是可以做到嗎

如果你想用程式碼來實現，麻煩找找 Excel 是怎麼做到的吧

請自行改寫成 C
謹供參考



[code delphi]

unit fMain;

interface

uses
SysUtils, Classes, Graphics, Forms;

type

TfrmMain = class(TForm)
procedure FormCreate(Sender: TObject);
public
procedure DO_DRAW(Sender: TObject);
end;

var
frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
OnPaint := DO_DRAW;
OnResize := DO_DRAW;
end;

procedure TfrmMain.DO_DRAW(Sender: TObject);
var
fn: string;
X,Y: array of Integer;
L1,L2: TStringList;
I,K: Integer;
begin
fn := 'D:\4d21812b03b13_坐標.TXT';
if not FileExists(fn) then EXIT;

L1 := TStringList.Create;
try
L1.LoadFromFile(fn);
SetLength(X,L1.Count);
SetLength(Y,L1.Count);
L2 := TStringList.Create;
try
L2.Delimiter := #$20;
K := 0;
for I := 0 to L1.Count-1 do
begin
L2.DelimitedText := Trim(L1[I]);
if L2.Count <> 2 then Continue;
X[K] := StrToIntDef(Trim(L2[0]),0);
Y[K] := StrToIntDef(Trim(L2[1]),0);
Inc(K);
end;
SetLength(X,K);
SetLength(Y,K);
finally
FreeAndNil(L2);
end;
finally
FreeAndNil(L1);
end;

if K = 0 then EXIT;

Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 2;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Mode := pmCopy;
Canvas.Brush.Color := Color;
Canvas.Brush.Style := bsSolid;

Canvas.MoveTo(X[0],Y[0]);
for I := 1 to K-1 do
begin
Canvas.LineTo(X[I],Y[I]);
end;

end;

end.

[/code]

編輯記錄