[Delphi] czytanie pliku txt...

[elu]

Witam serdecznie.
mam problem z czytaniem z pliku txt, a mianowicie chodzi mi o wyodrębnienie każdego słowa w linii. bo jeżeli wczytuję readLNn to czyta linie, a read nie działa...
w jaki sposób mogę wyodrębniać słowa w linii??

z góry dziękuję za odpowiedź

[Kelut]

Możesz tak opornie w readln wczytywać do spacji i zaliczać to jako słowo...Z tym, że musiałbyś odrzucić np. kilka spacji obok siebie itd

[BABCIA ADHD]

Read czytało chyba znak. Nie kojarzę, żeby była funkcja do wczytywania słowa

Jeśli przyjmiemy, że słowo to ciąg jakichkolwiek znaków za wyjątkiem space, to można to zrobić mniej-więcej tak (z tym, że pisze bez Delphi) :

 var  f: TextFile;  i:=Integer;  S:=String; 
        x: array of String; //Dynamiczna tablica przech. słowa z całego pliku
        q: String; //Zmienna pomocnicza przech. litery danego słowa
begin
  AssignFile(F,'bla.txt');
  Reset(F);
  
  repeat
  Readln(F,S);  //Do S wczytujemy kolejną linię
   
   q:='';
   for i:=1 to Length(S) do 
     if S[i]<>' ' then      //Jeśli dany znak jest inny od spacji
       q:=q+S[i]             //To dodaj go do zmiennej q;
     else
        if Length(q)>0 then   //Czy w q są jakieś znaki (zapobiega kilku spacją obok siebie)
          begin
             SetLength(X,Length(X)+1);    //Wydłużenie długości tablicy
             X[Length(x)-1]:=q;   //Dodanie wyrazu
             q:='';      //wyczyszczenie zmiennej pomocniczej
           end;

   until EoF(F); //Pętla do końca pliku

  CloseFile(F);

W teorii powinno działać, jak coś to napisz