Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.636 Beiträge
Delphi 12 Athens
|
Re: Datenimport von Zahlen einer seltsamen Datei
11. Nov 2007, 17:46
Hier mein Testprojekt:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
DynArray: array of double;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var sList: TStringList;
Eintrag: string;
i: integer;
begin
SetLength(DynArray,0);
sList := TStringList.Create;
try
sList.LoadFromFile(' C:\pj-10'); //Dateinamen anpassen
SetLength(DynArray,sList.Count);
for i := 0 to sList.Count - 1 do
begin
Eintrag := StringReplace(sList[i],' .',DecimalSeparator,[]);
DynArray[i] := StrToFloat(Eintrag);
end;
finally
sList.Free;
end;
end;
end.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|