Datenimport von Zahlen einer seltsamen Datei

[turbocounter]

hm ne damit kenn ich mich nicht aus. aber ich verwende prozeduren, die ich so geschrieben habe, dass diese mit einem array arbeiten.

[DeddyH]

Du brauchst die Zahlen als Zahlen oder als String?

[turbocounter]

zahlen bitte.

[grenzgaenger]

also bei mir funktioniert das ganze problemlos ... wo lliegt das problem, bei deiner hausaufgabe....??

Delphi-Quellcode:

program mist;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 f: text;
 s: string;
begin
 assign(f, 'pj-10');
 reset(f);
 while not eof(f) do
 begin
  readln(f, s);
  writeln(s);
 end;
 close(f);
 readln;
end.

Edit: mal noch die datei hinzufüg:

[DeddyH]

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.

[grenzgaenger]

wenn du probleme mit dem konvertieren der zahlen hast, mach bitte 'n neuen thread auf ...

[turbocounter]

ok danke deddyh.

[Nuclear-Ping]

@turbo:

Wenn da $a steht, ist es ein Zeilenumbruch.

Beschäftige dich doch z.B. mal mit dem was z.B. mkinzler dir gezeigt hat. Da hast du mit 3 Zeilen Code die Datei eingelesen. Delphi-Hilfe von TStringList angucken!

Delphi-Quellcode:

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Delimiter := Chr($a);
    sl.LoadFromFile ('C:\...'); 
    showmessage (Trim (sl[0]));
    showmessage (Trim (sl[1]));
  finally
    FreeAndNil (sl);
  end;
end;

Ist in meinen Augen "komfortabler", als die Datei manuell auszulesen.

[grenzgaenger]

denke, das nimmt sich nicht viel. man muss ja nix konvertieren :twisted: