Запись в файл

[Titan123]

вот есть код по записи в txt файл:

 Var f:System.Text; 
 begin  
  AssignFile(f,'<путь и имя файла н.п. С:\temp\1.txt>'); 
 Rewrite(f); 
 WriteLn(f,'My first file!!!');  
  CloseFile(f);
end;

моя программа несколько раз записывает текст в файл. и одна проблема: весь текст, который был до записи в этом файле стирается. как это предотвратить?

и еще: киньте кто-нибудь ссылку на коды всех клавиш, плиз

[_Dmitry]

Rewrite(f); - создаёт новый файл,
Append(f); - открывает существующий файл для дополнения,
FileExists(const FileName: string): Boolean; - проверяет существует файл или нет.

[Denager]

assignFile(F,'File.dat');
If not FileExists('File.dat') then rewrite(F) else Append(F);

_Dmitry, опередил

[Titan123]

спасибо за помощь. а коды клавиш ни кто не знает где найти?

[Stilet]

Коды букв даст тебе функция Ord('Символ буквы') остальные коды - константы название которых начинаются с VK_

[Баламут]

Интересно, где ты брал информацию по этому поводу? Обычно рядом с Rewrite говорится и о Reset. Rewrite создает новый файл, уничтожая при этом существующий. Reset же открывает и позиционирует в 0. Напиши так

AssignFile(f,'111.txt');
Append(f);
WriteLN(f, 'Превед, медвед!');
CloseFile(f);

Упс... Опоздал...

[mutabor]

спасибо за помощь. а коды клавиш ни кто не знает где найти?

коды клавиш -> раз , и два (тут есть 10-ные)