|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите написать конвертор
Помогите написать конвертер. Приведенный ниже код работает только если строка не больше 200 символов.
Нужно из файла все что располагается между / / записать в массив. Код:
if form1.OpenDialog1.Execute then fname:=form1.OpenDialog1.FileName; TStr := TStringList.Create; try TStr.LoadFromFile(fname); for t:=0 to TStr.Count-1 do begin str:=TStr.Strings[t]; k:=1; a:=''; for i:=1 to length(str) do begin if str[i]<>'/' then a:=a+str[i] else begin m[k]:=a; Inc(k); a:=''; end; end; m[k]:=a; Последний раз редактировалось Aristarh Dark, 04.05.2012 в 15:32. |