Læse en linie af gangen

prøv at se det svar jeg gav dig før...

/ZIRON

Det virker ikke med readln. Den skriver som sagt incompatible types...

her der læser du alle linierne igennem:

procedure TForm1.Button1Click(Sender: TObject);
var
  x: String;
  f: Textfile;
begin
  AssignFile(f, \'C:\\hejhejhej.txt\');
  Reset(f);
  while not eof(f) do
    begin
      readln(f,x);
      ShowMessage(x);
  end;
end;

og så smider du det bare ind i et array og så kan du ellers bare lege med alle de linier du vil...

/ZIRON

Det virker jo ikke. Den opfatter bare samtlige linier som én stor linie.

hmmm sku da ikke på min, den læser linie for linie...

prøv at send din fil til ziron@kulhytten.dk også dit projekt, hvis det er...

/ZIRON

Ok, det virker nu. Jeg misforstod vist din kode. Undskyld, jeg afviste dig før :-( Men tak skal du ha.

prøv dette:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    vis_en_linie: TButton;
    procedure Button1Click(Sender: TObject);
    procedure vis_en_linieClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    linierne : array[1..100] of string;
    i : Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  x: String;
  f: Textfile;
begin
  AssignFile(f, \'C:\\hejhejhej.txt\');
  Reset(f);
  while not eof(f) do
    begin
      inc(i);
      readln(f,x);
      linierne[i] := x;
      ShowMessage(x);
  end;
end;

procedure TForm1.vis_en_linieClick(Sender: TObject);
var
  linienr : String;
begin
  InputQuery(\'Linie frem viser...\', \'Indtast nr. på den linie du vil se...\', linienr);
  ShowMessage(linierne[StrToInt(linienr)]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
end;

end.

/ZIRON

okay det er så godt og det hele går nu, bare du får afleveret dit projekt, ik???  :)

fortsat god arbejdslyst :)

/ZIRON

Tak for hjælpen!! Og endnu en gang; undskyld jeg afviste dig før, jeg læste ikke din kode rigtigt...

hehe det går nok skal du se :)

/ZIRON

Prøv med en TStringList i stedet for, det er meget nemere og uden begrænsninger MyList.LoadFromFile(), og så har du hele filen inde i en line.