| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Консольное приложение [D5, D6, Win95/98]

иван ©   (2002-07-23 16:44:00) 

Есть код

var
Form1: TForm1;
s: string;

implementation

{$R *.dfm}


procedure Code(var text: string; password: string;
decode: boolean);
var
i, PasswordLength: integer;
sign: shortint;
begin
PasswordLength := length(password);
if PasswordLength = 0 then Exit;
if decode
then sign := -1
else sign := 1;
for i := 1 to Length(text) do
text[i] := chr(ord(text[i]) + sign *
ord(password[i mod PasswordLength + 1]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s := Memo1.Lines.Strings[2];
code(s, Edit1.Text, false);
Memo1.Lines.Strings[2] := s;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile("C:\1.txt);
end;

procedure TForm1.Button3Click(Sender: TObject);

begin
code(s, Edit1.Text, true);
Memo1.Text := s;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
memo1.Lines.SaveToFile("C:\1.txt");
end;

как его засандалить в dpr-файл моего проекта или создать из него консольное приложение. Заранее благодарен.

---

Cobalt   (2002-07-23 18:59:00) [1]

Идеология консольного приложения принципиально отличается от оконного. Посмотрите на экран Сеанса MS-Dos.
Используйте ф-ии WriteLn & ReadLn для ввода-вывода.
Циклы для проверки состояния ввода.
Весь код исполняется "по порядку", а не "обрабатываются отдельные сообщения"

---

ZZ   (2002-07-23 16:51:00) [2]

Ваня, а ты сам понял, что спросил??

---

Наверх