|
#1
|
|||
|
|||
Чтение из файла.
Здраствуйте. Возникла следующая потребность нужно прочитать из файла строку, но строка вот такого типа:
1,50,0,5,7,5,5,10,10 И каждую цифру занести в перменную, т.е. s1 = '1'; s2 = '50' И т.д., думаю надо копать что-то в сторону ansistr, но не пойму что именно. Надеюсь на вашу помощь. |
#2
|
||||
|
||||
Ну можно просто использовать 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. Помогаю за Спасибо |
#3
|
|||
|
|||
Спасибо. Простите что так долго, были проблемы. Код попробую, отпишусь.
|