!!! HELP !!! СРОЧНО ... Вопрос жизни и смерти... =)

← →
x000d © (2002-03-31 04:31) [0]

Люди.........слушайте подскажите плиз как сделать..
1. Я открыл 1.txt пустой..
как мне через программу занести туда текст ??
например при нажатии кнопки button там текс hello.
помогите плизз... если можно пример привидите любые..
или хелп кто нить дайте касающейся этой темы.

← →
Adder © (2002-03-31 04:43) [1]

{$I-}
AssignFile(MyFile,"MyText.txt");
Rewrite(MyFile);
WriteLn(MyFile,"Hello");
CloseFile(MyFile);
{$I+}

← →
cutter © (2002-03-31 04:59) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
begin
AssignFile(f,"c:\1.txt");
Rewrite(f);
Write(f,"Hello!");
CloseFile(f)
end;

← →
Anatoly Podgoretsky © (2002-03-31 11:28) [3]

x000d © (31.03.02 04:31)
А как открыл, от жтого зависит как заносить?

← →
Biorobot © (2002-03-31 21:17) [4]

Нечего добавить, коммент от Аддера лучший!

← →
x000d © (2002-03-31 23:27) [5]

Вот такая ситуация , есть чат Vypress Chat 1.5.1
там строчка что писать текст она вроде Edit
как мне отловиить в Vypress Chat ,EDIT и программно написать текст ?

← →
lipskiy © (2002-03-31 23:56) [6]

2 Adder
Простите, что влез не в тему, не подскажете ли, нафиг нужны директивы {$I-} и {$I+}? Я так понимаю, они отключают обработку ошибок ввода-вывода. А чем это лучше? Что произойдет, если ошибка действительно возникнет?

← →
Вадим © (2002-04-01 00:05) [7]

Если возникнет ошибка, то о ней никто не узнает

← →
lipskiy © (2002-04-01 00:12) [8]

Окей, я так и думал. А в системе нигде пакостей не останется?
И какими еще директивами можно так безболезненно пользоваться?

когда директивой отключаешь я думаю желательно вставить IOResult

The $I switch directive enables or disables the automatic code generation that checks the result of a call to an I/O procedure. If an I/O procedure returns a nonzero I/O result when this switch is on, an EInOutError exception is raised (or the program is terminated if exception handling is not enabled). When this switch is off, you must check for I/O errors by calling IOResult.

И не дай бог не проверишь

!!! HELP !!! СРОЧНО ... Вопрос жизни и смерти... =) Найти похожие ветки