Скачать: CL | DM;

Консольное приложение   Найти похожие ветки 

← →
иван   (2002-07-23 16:44) [0]

Есть код

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-файл моего проекта или создать из него консольное приложение. Заранее благодарен.

---

← →
ZZ ©   (2002-07-23 16:51) [1]

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

---

← →
Cobalt ©   (2002-07-23 18:59) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c