Windows 10 На рабочем столе была папка photo ( с фотографиями, около 250), через телефон в компьютер отправил в отдельную папку несколько документов, в котором была папка с таким же названием photo ( с фотографиями, 28 )
Случайно перекинул на рабочий стол, тот который перекинул осталься на раб.столе, а старый с 250 фотографий просто пропал.
Что делать?! И как так произошло?
Никаких уведомлений что такая папка уже существует или заменить существующую папку не появились
Это очень важно, так что, если не знаете, лучше не писать всякий бред!
begin
If FontDialog.Execute then
RichEdit1.SelAttributes.Assign(FontDialog1.Font);
RichEdit1.SetFocus;
End;
end;
делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub