[Мяфк]

Здраствуйте. Возникла следующая потребность нужно прочитать из файла строку, но строка вот такого типа:
1,50,0,5,7,5,5,10,10
И каждую цифру занести в перменную, т.е.
s1 = '1';
s2 = '50'
И т.д., думаю надо копать что-то в сторону ansistr, но не пойму что именно. Надеюсь на вашу помощь.

[v1s2222]

Ну можно просто использовать TStringList. Как-то так:

Код:

var
  a: Array of Integer;
  Str: TStringList;
begin
  Str := TStringList.Create;
  Str.LoadFromFile('file.txt');
  Str.Text := Trim(StringReplace(Str.Text, ',', #13, [rfReplaceAll]));
  SetLength(a, Str.Count);
  for i:=0 to Str.Count-1 do
    a[i] := StrToIntDef(Str.Strings[i], 0); // если по ошибке в файле было записано не цифра (или число), то по умолчанию ставим 0 (чтоб не было ошибок).

// все, теперь все числа хранятся в массиве a.

[Мяфк]

Спасибо. Простите что так долго, были проблемы. Код попробую, отпишусь.