var S: String; F: TextFile; begin AssignFile(F, 'C:\test.txt'); FileMode := 0; Reset(F, 1); while not Eof do begin ReadLn(F, S); //Her manipulerer du med hele strengen og lægger den ind i dit array. end; CloseFile(F); end;
Det er netop den det hvor du skrive Her manipulerer du med hele strengen og lægger den ind i dit array som jeg gerne vil have dig til at vise mig. Resten kunne jeg i forvejen. Den øverste linie i tekstfilen ser således ud: 0.000 0.605 1.182 0.000 1.523 1.274 Tallene er adskilt af et tabulationsskift.
var S: String; I: Integer; begin I := Pos(#09, S); end;
Pos returnerer positionen på det første tabulator-tegn den støder på i streng s. Så kan du bruge Copy til resten...
Copy(S, 0, I);
var S, temp: String; I: Integer; begin temp := S; while I <> 0 do begin I := Pos(#09); temp := Copy(S, 0, I); temp := Copy(S, I+1, Lenght(S)); end; end;
Jeg er ikke 100% sikker på den... Det kan godt være at du skal lægge lidt til Pos-funktionen... Jeg har altid problemer med om den nu tager tegnet før, efter eller det tegn man har peget på... Prøv dig lidt frem, og vær ikke bange for at prøve igen! :)
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.