Привет всем экспертам! У меня просьба посмотрите техт моей проги, а то она у меня ошибку выдает может подскажете в чем дело. unit Cod; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Trans: TButton; Quit: TButton; procedure QuitClick(Sender: TObject); procedure TransClick(Sender: TObject); private { Private declarations } public { Public declarations } z: String; end; var Form1: TForm1; Str: String; a: Integer; z: String; implementation {$R *.dfm} procedure TForm1.QuitClick(Sender: TObject); begin; Close; end; procedure TForm1.TransClick(Sender: TObject); begin for a:=1 to Length(Form1.Edit1.Text)
do begin z:=Copy(Form1.Edit1.Text,a,1); str:=str+''+IntToStr(ord(z))+';'; end; Form1.Edit2.Text:=str; end; end.
Добрый день, espero! Для начала бы сказал, какая ошибка. У меня Delphi 5 и он не нашёл Variants.pas из Uses. Без него отлично работает. Только нужно строчку str:=str+''+IntToStr(ord(z))+';'; заменить на str:=str+''+IntToStr(ord(z[1]))+';'; и всё будет работать. Это из-за того, что параметр для Ord должен иметь тип символа (Char), а ты вписал туда строчку (String).
Ответ отправлен: 03.07.2003, 12:11 Отправитель: URiS Отвечает ART_43
Приветствую Вас, espero! Поставь ord(z[1]) Ответ отправлен: 02.07.2003, 09:15 Отправитель: ART_43 Отвечает Bob Johnson
Добрый день, espero! Единственное, на что можно обратить внимание - это ord(z). Пиши что-то типа ord(z[1]). А вообще, в следующий раз конкретней говори, что за ошибка и где.
* EMan1.4: ---===*** Have your friend the way you would like him to have you ***===---
Ответ отправлен: 03.07.2003, 00:17 Отправитель: Bob Johnson
Вопрос № 765
Скажите плиз! Как распечатать текст из memo с помощью print dialog и как связать настройки принтера с ним? И как искать текст в memo с помощью finddialog?
Добрый день, Кирилл! PrintDialog - это всего лишь форма, оболочка. Сама она печатать не будет. Печатать всё равно придётся тебе самому. Такие же дела обстоят и с FindDialog. Сам он ничего не ищет. Ты просто обрабатываешь его события. Вот и всё. С таким же успехом можно создать свои собственные формы и обращаться с ними. А эти сделаны только с целью стандартизации.
Добрый день, Кирилл! Так: var f: textfile; s: string; ts: TStrings; begin ts:=TStrings.Create; AssignFile(f,'file'); Reset(f); while not EOF(f) do begin Readln(f,s) ts.Add(s); end; CloseFile(f); end; Вот и всё. В переменной ts у тебя находится текстовый файл. Только чтобы работать с ней везде, лучше описать её как глобальную.
Ответ отправлен: 06.07.2003, 16:51 Отправитель: URiS Отвечает Bob Johnson
Здравствуйте, Кирилл! С помощью ReadLn (file, var).
* EMan1.4: ---===*** Have your friend the way you would like him to have you ***===---
Ответ отправлен: 06.07.2003, 17:49 Отправитель: Bob Johnson Отвечает ART_43
Приветствую Вас, Кирилл! var a1,a2,a3:string; f:textfile; begin assignfile(f,'aaa.aaa'); reset(f); readln(f,a1); readln(f,a2); readln(f,a3); closefile(f); end; Ответ отправлен: 07.07.2003, 09:26 Отправитель: ART_43
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.