[Diplomate]

Нужно составить программу, в которой будет кнопка Button и многострочный редактор Memo. При нажатии на кнопку вызывается диалог открытия файла(с помощью компонента OpenDialog) и содержимое выбранного файла отображается в Memo. Если файл имеет имя demo(в любом регистре), то текст отображается одним шрифтом, если другое-другим. Как такое реализовать я в целом знаю, но как сделать проверку на имя файла? Я знаю, что имя файла хранится в OpenDialog.FileName, но дело в том, что там находится путь к нему. К примеру, выбрав файл Demo в папке "папка1", в OpenDialog.FileName будет находиться следующий текст: "C:\папка1\demo.txt". Как тогда осуществить проверку имени файла? С конца что ли? Мне кажется, должен быть какой-то другой путь. Нет ли переменной, в которой будет храниться само имя файла, а не путь к нему?

[angvelem]

AnsiUpperCase, AnsiLowerCase и вперёд.

[poli-smen]

Сообщение от Diplomate

Если файл имеет имя demo(в любом регистре), то текст отображается одним шрифтом, если другое-другим. Как такое реализовать я в целом знаю, но как сделать проверку на имя файла? Я знаю, что имя файла хранится в OpenDialog.FileName, но дело в том, что там находится путь к нему. К примеру, выбрав файл Demo в папке "папка1", в OpenDialog.FileName будет находиться следующий текст: "C:\папка1\demo.txt". Как тогда осуществить проверку имени файла?

Код:

  if AnsiSameText('demo.txt', ExtractFileName(OpenDialog1.FileName)) then

Если ещё и без учёта расширения тогда так:

Код:

  if AnsiSameText('demo', ChangeFileExt(ExtractFileName(OpenDialog1.FileName), '')) then

[Diplomate]

Большое спасибо.
У меня тут еще один вопрос. Нужно создать программу, состоящую из двух таблиц(5x5 и 1x5) и кнопки "Расчет". Суть задания в том, чтобы все числа в строке первой таблицы складывались и их сумма отображалась в соответствующей строке второй таблицы. Я составил код, но после заполнения первой таблицы и нажатия кнопки "Расчет" во второй таблице ничего не пишется! Вот код(Tab1 и Tab2 соответственно первая и вторая таблицы):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,n:integer;
c:real;
b:boolean;
begin
b:=true; //b-логическая переменная, которой присваивается значение false, если найдена пустая ячейка(проверка, что все ячейки строки 
//заполнены)
c:=0; //c-переменная. в которой хранится сумма
for i:=0 to Tab1.RowCount do
 begin
  for j:=0 to Tab1.ColCount do
    if Tab1.Cells[i,j]='' then //если ячейка пустая, то b:=0
     b:=false;
  if b=true then //если b=true, то все ячейки заполнены, в этом случае мы подсчитываем сумму
   begin
    for n:=0 to Tab1.ColCount do
     c:=c+StrToFloat(Tab1.Cells[i,n]);
    Tab2.Cells[i,0]:=FloatToStr(c);
   end;
 end;
end; 

Насколько я понял программа в цикле, где идет проверка на то, что все ячейки строки заполнены, где-то присваивает переменной b значение false, поэтому подсчет и вывод значения c во вторую таблицу не происходит. Прошу найти ошибку в коде.

[poli-smen]

Сообщение от Diplomate

У меня тут еще один вопрос. Нужно создать программу, состоящую из двух таблиц(5x5 и 1x5) и кнопки "Расчет". Суть задания в том, чтобы все числа в строке первой таблицы складывались и их сумма отображалась в соответствующей строке второй таблицы. Я составил код, но после заполнения первой таблицы и нажатия кнопки "Расчет" во второй таблице ничего не пишется! Вот код(Tab1 и Tab2 соответственно первая и вторая таблицы):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,n:integer;
c:real;
b:boolean;
begin
b:=true; //b-логическая переменная, которой присваивается значение false, если найдена пустая ячейка(проверка, что все ячейки строки 
//заполнены)
c:=0; //c-переменная. в которой хранится сумма
for i:=0 to Tab1.RowCount do
 begin
  for j:=0 to Tab1.ColCount do
    if Tab1.Cells[i,j]='' then //если ячейка пустая, то b:=0
     b:=false;
  if b=true then //если b=true, то все ячейки заполнены, в этом случае мы подсчитываем сумму
   begin
    for n:=0 to Tab1.ColCount do
     c:=c+StrToFloat(Tab1.Cells[i,n]);
    Tab2.Cells[i,0]:=FloatToStr(c);
   end;
 end;
end; 

Насколько я понял программа в цикле, где идет проверка на то, что все ячейки строки заполнены, где-то присваивает переменной b значение false, поэтому подсчет и вывод значения c во вторую таблицу не происходит. Прошу найти ошибку в коде.

В свойстве TStringGrid.Cells первым должен идти номер колонки, вторым номер строки. У тебя же наоборот.
Ещё неправильно заданы диапазоны в циклах. Должно быть так:

Код:

for i:=0 to Tab1.RowCount - 1 do
.....
for j:=0 to Tab1.ColCount - 1 do
.....
for n:=0 to Tab1.ColCount - 1 do

Возможно есть ещё какие ошибки.

[Diplomate]

Премного благодарен.

[Diplomate]

Написал другую программу Делфи, сохранил ее. Теперь, когда я открываю программу и пытаюсь ее запустить, на экран выводится пустая форма, хотя код и все остальное есть. Что за хрень???
Снимаю вопрос, программа мистическим образом снова стала работать.