Var F : TextFile; S : String; i : integer; Begin AssignFile(F, 'D:\nyfil'); Reset(F); if not EOF(F) Then begin for i := 1 to 5 do ReadLn(F, S); vis := s; end; CloseFile(F)
jeg var nød til at løbe ud af døren kl 17 men du skal nok få dine point mange tak for hjælpen
mvh jetrit
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.