Я не плохо знаю Паскаль... В Делфях работаю первый раз в жизни... Времени мало, так что нормально изучить не могу...

И так, есть несколько полей типа TEdit и одна кнопка.
Нужно считать из файла текст, точнее цисел, записанных в определенном формате и поместить часть из этих цифр в эти поля при запуске. Потом пользователоь изменяет нужные поля и нажимает кнопку. Програма выводит результат в определенные поля и сохраняет содержимое всех полей в файл, затирая то, что было в файле.
Проблема состоит в следующем: как при запуске занести в поля значения, как программе взять из них значения для вычислений и как сохранить все это в файле...

З.Ы. Возможно я использовал не тот тип...

З.З.Ы. Примерное описание программы (внешний вид): есть 4 колонки полей, в первых трех нужно задать значения из файла при запуске, затем возможно изменить и прога должна забрать их обратно для работы, после окончания работы проги результат выводится в четвертую колонку полей, а значения первых трех колонеок сохраняются в файл в определенном формате...

Если можто, то привидите пример с коментами...

Это сообщение отредактировал(а) Digit - 3.7.2005, 18:46

inttostr - integer->string
strtoint - string->integer

Код

button1.click ... assignfile(f,'input.txt');  // наш файл reset(f); readln(f, inttostr(edit1.text)); readln(f, inttostr(edit2.text)); readln(f, inttostr(edit3.text)); edit4.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text)+strtoint(edit2.text)); closefile(f); ... button2.click; ... assignfile(f,'input.txt'); rewrite(f); writeln(f, strtoint(edit1.text)); writeln(f, strtoint(edit2.text)); writeln(f, strtoint(edit3.text)); closefile(f);

Цитата(Digit @ 3.7.2005, 18:45)

Нужно считать из файла текст, точнее цисел, записанных в определенном формате и поместить часть из этих цифр в эти поля при запуске.

Все зависет от того, какой у тя файл. Допустим что это обычный текстовик с числами, тогда считать все все лучше в переменную string (строка)

Код

var f: testFile; str: string; begin AssignFile(f,'имяфайла.txt');// ассоциируем файловую переменную с файлом Reset(f);// открываем файл Read(f,str);// читаем CloseFile(f);// закрываем файл ... end;

Поместить что-то в Edit очень просто:
Допустип нужно поместить нашу переменную str.

Код

Edit1.Text:= str

Что бы все это произошло при запуске, то пропиши этот код в событии OnShow (OnCreate) формы.

Цитата(Digit @ 3.7.2005, 18:45)

как программе взять из них значения

Код

var s: string; begin s:= Edit1.Text; ... end;

Цитата(Digit @ 3.7.2005, 18:45)

и как сохранить все это в файле...

Код

var f: textFile; st: string; begin st:= Edit1.Text; AssignFile(f,'имяфайла.txt'); Rewrite(f)// открываем для перезаписи Write(f,st) записываем CloseFile(f) ... end;

Как там точно тебе нужно разберешся сам.

И еще, один топик, один вопрос
Удачи

SoWa, спасибо.


Poseidon, спасибо, только еще один вопрост: где находится событие OnShow (OnCreate) формы? или как туда прописать этот код?

Открываешь проект, кликаешь по форме, в инспекторе обьектов переходишь на вкладку "События", там увидешь. Что бы добавить обработчик события, кликни по нему 2 раза.