Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.05;
Скачать: 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 вся ветка

Текущий архив: 2002.08.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
8-13734
Злой
2002-03-27 12:30
2002.08.05
Приветствую!!! Не подскажите как осуществить такую идею оздаю список из mp3 файлов и


1-13609
Filat
2002-07-24 19:59
2002.08.05
Вот уж не думал, что тут не будет работать.......


1-13714
madcap
2002-07-23 23:01
2002.08.05
Обработчик события


6-13743
chernoruk
2002-05-22 08:35
2002.08.05
Почему нет ошибки GetHostByName в OffLine?


1-13716
GydruS
2002-07-24 08:25
2002.08.05
Переполнение стека из-за CheckBox а!