Delphi (помогите разобраться)

[steelik]

Создаю событие OnMouseDown, создаю переменную Btn типа TButton . В ответ получаю Undeclared identifier: 'TButton'

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
Btn : TButton;
begin

end;

В чём дело? Delphi 6.

[eXtreeme]

Должно работать... у меня работает..
TButton находиться в модуле StdCtrls. Он у тебя в uses задекларирован?

[someone312002]

создал пустой проект, на свойствах формы попытался сделать анаологичное вышеописанному, ктрл + ф9 - ошибка...
потом, кинул на форму кнопку, снова откомпилировал - ошибки нет...
так что проверяй юзес...

[steelik]

Не могу разобраться с полиморфизмом классов. В книге по которой я учусь, описывается следующий пример.

TMyClass1 = class
procedure Show;
procedure Hide;
procedure MyProc(IsShow : Boolean); virtual;
end;

TMyClass2 = class(TMyClass1)
procedure MyProc(IsShow : Boolean); override;
end;

procedure TMyClass1.Show;
begin
MyProc(True);
end;

procedure TMyClass1.Hide;
begin
MyProc(False);
end;

Ошибка [Error] Project1.dpr(17): Unsatisfied forward or external declaration: 'TMyClass2.MyProc'

[steelik]

Если мне необходимо скопировать в переменную типа string содержимое текстового файла. Как это сделать?

[f00rd]

steelik

Либо в TStringList загрузить (LoadFromFile) и после параметр Text взять, либо:

var
 f:System.Text;
 s,buf:string;
begin
 AssingFile(f,'file.txt');
 Reset(F);
 s:='';
 while not eof(f) do
   begin
   readln(f,buf);
   s:=s+buf;
  end;
end;

в s - текст....

[/7y3uK]

расшифровываю и упрощаю понимание :

var

f:TStringList; //Переменная типа объект TStringList.

begin

f:= TStringList.Create();

f.LoadFromFile(‘c:\filename.txt’);// Загружаю текстовый файл

f.Strings[0]; // Здесь находиться первая строчка файла

f.Strings[1]; // Здесь находиться вторая строчка файла

//и т.д.

f.Free; //не забываем чистьть за собой память

end;

[f00rd]

/7y3uK

ну, практически... в f.Text весь текст находится, и не надо перебирать все строки...

[/7y3uK]

2 f00rd
Впринципе если в тексте нужно что-то искать, то по f.Text искать действительно быстрее. Но также возможна ситуация - допустим, каждая строка - фамилия. В случае TStringList достаточно читать по нескольку символов из начала каждой строки, а при нахождении сразу же по индексу вытаскивать всю строку.

[f00rd]

/7y3uK
Заметь:

скопировать в переменную типа string содержимое текстового файла.

всё, фвать флудить

[steelik]

Пишу следующую, так сказать утилитку.
Загружаю текстовый файл, вот допустим его содержимое:

321948
953295
531295
359895

Необходимо, чтобы файл открывался, редактировался следующим образом:

example;321948;example;
example;953295;example;
example;531295;example;
example;359895;example;

Возможно, кто-то предложет более разумное решение:

var
st : TStringList;
..
st := TStringList.Create;
if OpenDialog1.Execute then
st.LoadFromFile(OpenDialog1.FileName);
astring := Format('%s%s%s',['General;',st.[i],';name;']);

ЗЫ: Как узнать, сколько строк находится в st ?

[someone312002]

count тебе в этом поможет...

[steelik]

Спасибо!
Как сделать в ToolBar-е кнопку не активной, до какого-то определённого действия.

[/7y3uK]

Алё... в делфе почти у всех компонентов есть свойство Enable... например: Button1.Enable:=False - выключить, True - включить... Ты конкретнее рассказывай, зачем тебе кнопку выключать и когда включать, тебе народ расскажет как можно хитрее все сделать, раз ты дельфю только начал рюхать...

[someone312002]

Располагай кнопки на тулбарах в соответствии с их назначением и активиру/деактивируй не по-кнопочно, а тулбар целиком. Так будет проще...

[steelik]

Всем респект!
Ещё вопрос! Как отличить цифру от текстового символа.
Например, в переменной st[0] у меня находится вот такая строчка: 610177 , как определить, что в этой сроке записано? Цифра али текст?
Задача состоит в том, чтобы проверять отрываемый файл, если в нём имеется текст, то он автоматом закрывается, т.к. для работы нам необходим файл с целочисленными с строками не более 10 символов в длину.

[f00rd]

steelik

var
 i:integer;
 s:string;
begin
try
 i:=StrToInt(s);
except
 exit;
 //s- не число
end;

или

var
 i:integer;
 s:string;
begin
 i:=StrToIntDef(s,-12345);
 if i=-12345 then exit;//s- не число
end;

[steelik]

Не понимаю, почему билды такие огромные получаются, пару диалоговых окон с примитивными процедурами, всего 600кб. Капался в опциях проекта, нашёл Build with runtime packages, после того, как поставил галку в этом чекбоксе, билд стал весить 70кб, однако проект библиотеки требует, которые весят по 700кб 8)))) Вот значит, почему все так не любят дельфи?

[steelik]

Значит есть у меня переменная st типа TStringList, мне необходимо изменить каждую строчку следующим способом, формат такой [i]str1+st+str2, всё это можно было бы записать следующим образом, что я вообщем-то и сделал

for i := 0 to st.count-1
begin
 st[ i ] := Format('%s%s%s',[str1,st[ i ],str2])
end

, пользователю предоставляется возможность редактировать переменные str1, str2, то есть он может несколько раз переписать значения этих переменных.
Всё работает, но, когда я ввожу следующие значения, хочу например изменить значения str1, str2, то получается такого типа строчка:
str1 str1 st[i] str2 str2

То есть, к чему я это всё, функция Format не изменяет мне значения str1,str2, а просто их добавляет в строку - постоянно, может быть посоветуете что-нибудь? Нехотелось бы мне при каждом разе заполнять переменную st (у меня это происходит при открытии файла) исходной информацией.

[/7y3uK]

Во-первых я Делфи люблю и уважаю, т.к. я ей балуюсь уже лет 5, но склоняюсь все больше и больше к любым С, т.к. там есть много чего полезного, чем дельфя обделена... а весят они так немеряно, т.к. дельфя за тебя делает всю рутинную работу: ресурсы делает, процедуру окна создает и много чего другого разного, что впринципе можно было бы сделать ручками, но так получается быстрее... на голом асме пустое окно с кнопкой без кода у меня весит 3 КБ, но выглядит все мрачно и не красиво
По поводу форматирования: самое простое и не изящное - это сделать еще один StringList такого же сайза как первый, например st2, и делать в цикле вот так st2[i]:=str1+st[i]+str2;