indlæsning af text

Hej,

Jeg har lige lavet denne lille funktion til formålet:

function get_text(filename: string; LineNumber: Integer): String;
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  SL.LoadFromFile(filename);
  Result := SL[LineNumber];
  SL.Free;
end;


Du kan så bare kalde den på denne måde:

Label1.Caption := get_text('c:\boot.ini', 3);

Så henter du linie 4 fra filen ind i label1.

Vær opmærksom på at den første linie hedder 0, den næste 1 osv...Derfor er 3 i eksemplet linie 4.

/SpEeDy

kan jeg også få den til at tage lidt længere inde på linjen ?????

ja, hvis du kender den præcise position og antal tegn, kan du bruge copy(streng,startpos,antaltegn)
eller hvis du kender en del af strengen, så kan du finde startpos med pos('blabla',streng)...

Takker