Indlæse fra CSV fil

Hvis du er sikker på der kun er en linie i filen

procedure TForm1.Button1Click(Sender: TObject);
var
sl : Tstringlist;
begin
sl := Tstringlist.Create;
sl.LoadFromFile('d:\test.csv');
sl.Delimiter := ';';
sl.DelimitedText := sl[0];
edit1.Text := sl[0];
edit2.Text := sl[1];
edit3.Text := sl[2];
edit4.Text := sl[3];
edit5.Text := sl[4];
sl.Free;

end;


Stoney

Det er for mange point, sæt dem ned

okay det var jo rimelig nemt åbenbart! :-) jeg troede det var langt sværere!

tester det lige og vender tilbage asap

[Error] Unit1.pas(37): Undeclared identifier: 'Delimiter'

(Husk det er delphi 4)

Der skal bare stå Delimited istedet for Delimiter.

Nææ vent det skal der da i grundne ikke! Ups ups..

Bedste gæt er at Delphi-versionens TStringList ikke har denne bekvemme property. Hvorfor kører du også sådan en gammel version?

jeg kører med denne version fordi det er den vi har fået udleveret af skolen til at lave et projekt med...

Men er der ingen der kan løse det, eller har et forslag til en løsning så det virker i delphi 4??

Det er en hurtig løsning - jeg gik ud fra at der ikke er linieskift eller noget som helst andet i csv filen - hvis der er må I tage højde for dette.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure FyldEdit(nr: integer; str: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  fil: textfile;
  counter: integer;
  str: string;
  ch: char;
begin
  if (Opendialog1.Execute) then
    begin
      AssignFile(fil, Opendialog1.FileName);
      reset(fil);
      counter := 1;
      str := '';
      while not eof(fil) do
        begin
          read(fil, ch);
          if (ch = ';') then
            begin
              FyldEdit(counter, str);
              inc(counter);
              str := '';
            end
          else
            begin
              str := str + ch;
            end;
        end;
      // sidste felt må ikke smutte (EOF)
      if (length(str) > 0) then
        FyldEdit(counter, str);
      closefile(fil);
    end;

end;

procedure TForm1.FyldEdit(nr: integer; str: string);
begin
  case nr of
    1: edit1.Text := str;
    2: edit2.Text := str;
    3: edit3.Text := str;
    4: edit4.Text := str;
    5: edit5.Text := str;
  end;
end;

end.

Jeg bruger tit en komponent TadvGrid fra TMSsoftware. Den findes som freeware på Tory (http://www.torry.net/vcl/grids/powergrids/acgrdd4.zip).
Den "fylder" lidt, men kanon nem at bruge netop til at læse og skrive .csv filer.

DR

lukker