Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник
Коллекция курьезных вопросов из форумов
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

Загрузка в массив [Delphi, Windows]


RusSun ©   (17.06.11 21:00

Доброе время суток.
Уважаемые форумчане:)

Мне нужно загрузить массив из текстого файла
428
78
422
84
429
83
425
...
Замечена неприятная вещь в kol почему то получается
только одно первое значение остальное нули, в VCL работает версия Kol 3.14..

...
var
form,Memo,Open,Load:PControl;
Dialog:pOpenSaveDialog;
f:textfile; s:string;
i:integer;
k:array [1..256] of integer;//массив

//область для процедур
procedure OpenClick(Dummy : Pointer; Sender: PControl );
begin

Dialog:=NewOpenSaveDialog('',FileFullPath('Project1.exe'),[]) ;
Dialog.title := 'Открыть';
dialog.Filter := '*.txt|*.txt|все|*.*';
Dialog.OpenDialog := true;
 if Dialog.Execute then begin

 assignfile(f,Dialog.Filename);
    try

reset(f);
    for i:=1 to 7 do  begin
                          readln(f,s);
                         k[i]:= str2int(s);
                         Memo.add(int2str(i)+' ) '+s+#13#10);
                         end;

    closefile(f);
    except
    end;
                                                        end else exit;

end;
procedure ShowClick(Dummy : Pointer; Sender: PControl );
var j:integer;
begin
Memo.add(' '+#13#10);
for j:=1 to 7 do Memo.add(int2str(j)+' ) '+int2str(k[j])+#13#10);
end;
...


RusSun ©   (18.06.11 09:41[1]

http://zalil.ru/31286715


Дмитрий К ©   (18.06.11 10:45[2]

k[i]:= str2int(Trim(s));


RusSun ©   (18.06.11 12:49[3]

to Дмитрий К Спасибо;)


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо