Delphi7. Запись в файл(проблема)

[Artsiom]

День добрый. Проблемы такие:
1. Имеется 10 Edit-ов.
Первый отвечает за имя файла. Все остальные должны в него записываться.
Перечитываю учебник, но сделать на практике не могу.
Попробовал и так FileHandle:=FileCreate('prt\'+Edit1 .Text+'.txt');, но тогда записывается всё в строчку и *кваказябрами, а не цифрами.
Пробовал var f:file of real; s2:real;
...
s2:=StrToFloat(Edit2.Text); AssignFile(f,'prt\'+Edit1.Text+'.tx t');
Rewraite(f); Write(f,s2); Ошибку на Write выдаёт.
Ничего не получается. Надо что бы записывал каждый Edit в отдельную строку, причём цифры не фиксированные и каждый раз разной длинны.
2. Можно ли как то ассоциировать определённое слово с определённой цифрой, ввожу в Edit слово, а запись в файл идёт цифрой?

[Utkin]

Я бы замутил TStringList. Поскидывал туды все Edit'ы и сохранил одной строчкой кода (и прочел кстати, также не напрягаясь).

[Artsiom]

Сообщение от Utkin

Я бы замутил TStringList.

Спасибо!

А что можно по поводу
"2. Можно ли как то ассоциировать определённое слово с определённой цифрой, ввожу в Edit слово, а запись в файл идёт цифрой?"
сказать?

[astecenko]

Можно ли как то ассоциировать определённое слово с определённой цифрой, ввожу в Edit слово, а запись в файл идёт цифрой?

Смотря как и где вы хотите организовать хранение этих ассоциации.
Можно реализовать с помощью множества, можно с помощью массива строк или объекта класса TStringList. Наиболее универсальный способ с помощью TStringList. Предварительно заполните TStringList программно с помощью Add, или загрузив из предварительно подготовленного файла с помощью LoadFromFile.

И опять же, если вы хотите ассоциировать слова с порядковыми номерами строк в массиве (в TStringList) то можно воспользоваться методом IndexOf, тогда содержимым файла должен быть просто список слов, каждое слово с новой строки.

слово1
слово2
словосочетание

например:

var
  List1:TStringList;
  i,j,x:integer;
begin
  List1:=TStringList.Create;
  List1.LoadFromFile('input.txt');
  i:=List1.IndexOf('слово1'); // в i занесется 0
  j:=List1.IndexOf('словосочетание'); // в j занесется 2
  x:=List1.IndexOf('что-то'); // в x занесется -1 - слова нет в списке
  ...
  FreeAndNil(List1);

Если вы хотите привязать слова к каким-то произвольным номерам, то тогда можно воспользоваться свойством Values (чувствительно к регистру!), при этом содержимое файла должно иметь структуру: слово=число
Например:

слово1=23
слово2=43
словосочетание=354

вариант реализации

var
  List1:TStringList;
  i,j,x:integer;
begin
  List1:=TStringList.Create;
  List1.LoadFromFile('input.txt');
  i:=StrToIntDef(List1.Values['слово1'],-1); // в i занесется 23
  j:=StrToIntDef(List1.Values['словосочетание'],-1); // в j занесется 354
  x:=StrToIntDef(List1.Values['что-то'],-1); // в x занесется -1 - слова нет в списке
  ...
  FreeAndNil(List1);

[Artsiom]

Спасибо большое!
Всё теперь точно последний вопрос.
Даже не знаю как сформулировать.
Делится число, к примеру 7/2=не 3.5, а 4.
9/4=3 и тд.
Это как то можно сделать?

[Delphi_ProGer]

Делится число, к примеру 7/2=не 3.5, а 4.
9/4=3 и тд.

RoundTo кажеться...

[Базиля]

Artsiom
Функция Round.

9/4=3 и тд.

В этом случае округление пойдет в меньшую сторону, будет 2.

Также вспомнился такой нюансик, если получили половину, то округление будет в пользу четного числа, в противном случае будет считаться округление в меньшую сторону
Пример
9/2=4.5 => 4
11/2=5.5 => 6

[Delphi_ProGer]

Из справки:

RoundTo function
Delphi syntax:

type TRoundToRange = -37..37;
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

Expression Value

RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24

UPDATED
+
uses Math;

[Базиля]

Delphi_ProGer
Я и не отрицал что это тоже вариант
В этом случае тогда надо не забыть про модуль мат. функций.

[Delphi_ProGer]

Базиля, я только хотел лишь дополнить свой ответ, т.е. это не вам ответ