Åbne en .TXT fil

hvilket programmerinssprog taler vi om HUSK AT VÆRE SPECIFIK
så du kan få den rette hjælp... dit spørgsmål lyder nemt nok

UPS SÅ IKKE LIGE KATEGORIEN SORRY

hmm delphi dvs vi er i pascal... hm ikke mit område... jeg holder mig til C# og Java

Du behøver altså ikke at smide sådan rundt om dig med point...

Kig på TStringList og LoadFromFile(filnavn)...

Det betyder vel ikke noget hvor meget han deler ud af point. Så vidt jeg kan se, har han da ikke accepteret nogen af de svar, han allerede har fået i aften.
Så indtil videre har det da ikke kostet ham noget.

Hvad mener du med at jeg skal kigge på TStringlist og LoadFromFile? Jeg er lidt nybegynder..

procedure ButtonOnClick()
var
  L : TStringList;
begin
  L := TStringList.Create;
  L.LoadFromFile( og så det samme som i det andet eksemple jeg viste dig);
  Edit1.Text := L[0];  <--- Indholdet af den første linie i filen
  Edit2.Text := L[1];  <---- anden linie
  FreeAndNil(L);
end;

Det er IKKE den smukkeste måde at gøre det på, men det kan hjælpe dig igang. Der er ingen fejlhåndtering what so ever.

Sådan her.  80 point er for vildt for så lidt....

Procedure TForm1.Button1Click(Sender: TObject);
Var
  SL : TStringList;
begin
  If OpenDialog1.Execute Then
    Begin
      SL := TStringList.Create;
      Try
        SL.LoadFromFile(OpenDialog1.FileName);
        Try
          Edit1.Text := SL[0];
          Edit2.Text := SL[1];
        Except
          On E: EStringListError Do
            ShowMessage('Fejl, den indlæste fil indeholder ikke mindst 2 linier')
        End
      Finally
        SL.Free;
      End;
    End;
end;

Okay.. Tak! Laver du lige et svar.. :)