Прочесть файл до знака

[Progs1024]

У меня есть текстовый файл...
... ; ... ; ... ; - типа его структура. т.е. слова в строке записаны через ";"... как прочесть каждое слово?

[Juffin]

я бы воспользовался таким алгоритмом:
1) считаваем строку
2) находим положение первой точки с запятой (pos(s,';'), где s - наша строка)
3) копируем часть строки до точки с запятой (процедура copy, список параметров не помню, глянь в хелпе)
4) удаляем часть строки до точки с запятой, и точку с запятой тоже
5) возвращаемся к 2) до тех пор, пока не дойдем до конца строки

[raxp]

или таким...

var t: TStringList;
begin
 t:= TStringList.Create;
 t.Delimiter:= ';';
 t.DelimitedText:= 'привет;ла-ла;до-свидания;';
 caption:= t[0]; //t[1] //t[2]

смысл ясен?

[W0LF]

var
  S:TStringList;
begin
  S := TStringList.Createl
  S.LoadFromFile( ваш файл );
  S.Delimiter := ';'; //этим знаком буду раздиляться слова
  S.DelimitedText:=S.Text; //незнаю или так мона xD но далжно сработать 
end;

В результате S[0] - первое слово, S[1] - второе и т.д....



ггг, неуспел)

[Progs1024]

спасибо большое!!!