Načtení z text.dokumentu – Delphi – Fórum – Programujte.com

Zdarec, potřebuju poradit. Když mám textovej dokument ve formátu .txt nebo .typ (přesně se to jmenuje data.txt a data.typ) a tenhle dokument obsahuje 25 žádků a na každym je název skupiny a cedečko, který vydali, takže vlastně takvej seznam cd. No a já bych potřeboval udělat to nějak tak, aby se mi vyhledal třeba jen 12 řádek a vypsal do mema. Jde to? Můžete mi někdo poradit? Díky moc

Pokud ty soubory otevíráš v textovém režimu, tak postup by mohl vypadat takto:

function GetLineFromFile(const FileName: String; aIndex: Integer;var outStr: String):Boolean;

var f: TextFile;

begin 

   AssignFile(f, FileName);

   Reset(f); 

    while(aIndex > 0)and(not Eof(f)) do begin

      Readln(f, outStr);

      dec(aIndex); 

     end;

    CloseFile(f);

    Result := (aIndex = 0);  

end;

keď už, tak takto:

procedure GetLineFromFile(const FileName: String; aIndex: Integer;var outStr: String);

var f: TextFile;

begin 

   AssignFile(f, FileName);

   Reset(f); 

    while(aIndex > 0)and(not Eof(f)) do begin

      Readln(f, outStr);

      dec(aIndex); 

     end;

    CloseFile(f);

    if aInded=0 then memo1.lines.add(outStr);  

end;

To audiotrack:
To je věc názoru. Pokud mohu, tak se snažím oddělit GUI od aplikační části.