Форум программистов, компьютерный форум, киберфорум
C# Windows Forms
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C# Выделение редактируемой строки DataGridView Здравствуйте! Хочу сделать, чтобы даже после обновления DataGridView выделение текущей ячейки оставалось, а не перемещалось всегда на первую строку. Т.е. редактирую вторую чтобы там и осталось выделение строки, а не сбрасывалось по умолчанию на первую строку. DataTable dt = new DataTable(); ... dt = SELECT... /*Вывод данных из БД в компонент*/ ... https://www.cyberforum.ru/ windows-forms/ thread1530388.html Resource перебор названий C#
pictureBox20.Image = Properties.Resources.img_skill_1; ЕСть вообщем такой код. Но главная проблема что нужно перебирать img_skill_n , там где n-произвольное число. Как это реализовать ? pictureBox20.Image = Properties.Resources.img_skill_+num;Не катит(((
C# Затемнение полей Добрый вечер, при установке заднего фона в программе, программа немного глючит, а именно при сворачивании-разворачивании, все элементы на секунду становятся черными, как исправить? namespace WindowsFormsApplication2 { public partial class Form1 : Form { public Form1() { InitializeComponent(); ... https://www.cyberforum.ru/ windows-forms/ thread1530214.html C# Обращение к компоненту Здравствуйте, вопрос собственно касательно обращения к компоненту. Можно ли обратиться к компоненту единожды написав его имя? Вот, что я имею ввиду: Ожидание: (NumericUpDown_Clustering_Method_Wyndham_Setting_Number_Of_Clusters ....) { Minimum = 2; Maximum = 100; } https://www.cyberforum.ru/ windows-forms/ thread1530124.html
C# Перевод из с++ в c#
Добрый вечер всем любителям программирования! Столкнулся с проблемой перевода кода с++ на Шарп : http://www.codeproject.com/Articles/88674/Graph-coloring-using-Recursive-Large-First-RLF-alg Не могу фикснуть баг, заранее спасибо.
C# Конвертирование в другую СС https://www.cyberforum.ru/ windows-forms/ thread1530063.html
Как конвертировать из 16-ой системы счисления в 10-ю, которая в таком формате - 111,B? Из 2-ой 1011110100,011 в 10-ю и из 8-ой в таком формате 1017,2 в тоже в 10-ю?
C# Перехват клавиш ( хуки ) И так я уже написал программу ( которая отлавливает нажатия клавиш и передает их в текстбокс Использую: KeyboardHook.cs Собственно подключил В Using'ax: using RamGecTools; KeyboardHook keyHook = new RamGecTools.KeyboardHook(); private void keyUp(KeyboardHook.VKeys key) { { https://www.cyberforum.ru/ windows-forms/ thread1529964.html Работа с текстовыми переменными C#
Доброго времени суток, столкнулся с такой проблемой: Есть у меня такой скрипт: 'LANGUAGE=RUS 'SERVERNAME=ms-cms001 Public Sub Main() '## cvs_cmd_begin
C# Как отслеживать открыто ли какое либо дочернее окно MDI и как к ним обращаться? https://www.cyberforum.ru/ windows-forms/ thread1529831.html
Как отслеживать открыто ли какое либо дочернее окно MDI и как к ним обращаться? и в нете никак не могу найти ответа на этот вопрос, может просто не знаю как искать? ))
C# Оптимизация кода https://www.cyberforum.ru/ windows-forms/ thread1529635.html
Добрый вечер, требуется проверка нескольких полей на пустоту, можно ли как то всю эту проверку сократить. if (textBox1.Text == String.Empty) { MessageBox.Show("Поле нельзя оставлять пустым", "Ошибка"); } if (textBox2.Text == String.Empty) { MessageBox.Show("Поле нельзя...
C# Как присвоить переменной значение текстбокса с названием состоящим из других переменных?
Доброго времени суток. Появилась такая проблема. На форме есть текстбоксы с именами Pole1_1, Pole1_2, Pole2_3, и т.д. Как мне присвоить текст из текстбокса переменной, подставляя в название тестбокса другие переменные. Например мне нужно: a = Pole2_2.text;
C# Знак минуса в ErrorProvider https://www.cyberforum.ru/ windows-forms/ thread1529405.html
Здравствуйте. В программе через error provider реализована проверка textbox на то, что бы моргать ошибкой при вводе букв, символов, то есть всего, что не является цифрой. Но при вводе отрицательного числа он моргает при вводе знака минус "-" он моргает, когда после минуса вводишь число, он перестаёт моргать. Можно ли как-то сделать, что бы он не моргал при вводе символа минус?
1 / 1 / 0
Регистрация: 12.09.2015
Сообщений: 74
0
.NET 4.x

Перевести код с delphi в С# - C# - Ответ 8071498

14.09.2015, 12:09. Показов 797. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Прошу помочь перевести код с delphi в С# а также ответить на несколько моих проблем очень прошу!
1. Как сделать чтобы 1 столбец в Stringgrid полностью уничтожался
2. Как сделать чтобы в Stringgrid в столбцах(кроме 1) красились ячейки где максимальное значение
3. Как сделать чтобы были десятичные числа в ячейках
4. Как реализовать загрузку и сохранение матрицы в Excel
вот код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Spin, Grids,comobj;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    Button1: TButton;
    Label3: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    N2: TMenuItem;
    N3: TMenuItem;
    Button3: TButton;
    SaveDialog1: TSaveDialog;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject;var key:char);
    procedure N3Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Math,Unit8;
 
{$R *.dfm}
var
   A: array of array of extended;
   MAX: array of extended;
   min:array of integer;
procedure TForm1.Edit1KeyPress(Sender: TObject; var key:char);
begin
if not(key in['0'..'9']) then
key:=#8;
//ограничиваем пользователя от ввода лишнего, давая ему вводить только то
//что нужно при этом в компоненте spinedit1 удаляет цифры если вводишь символы
end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
   k1, k2, S: extended;
   i,j,n,m:integer;
   str: String;
begin
memo1.Clear;
memo2.Clear;
memo3.Clear;
if StringGrid1.Cells[j,i]='' then
// проверка условия
Button2Click(sender);
SetLength(MAX, SpinEdit1.Value);
//Процедура SetLength изменяет размер строки, одномерного динамического массива
//или многомерного динамического массива
for j := 0 to SpinEdit1.Value-1  do
       // В значение SpinEdit1.value отображается число введённное с клавиатуры
       begin
           MAX[j] := A[1, j];
           for i := 0 to SpinEdit1.Value-1 do
           // Цикл для результата c помощью переменных i и j
             if (A[i, j] > MAX[j]) then
               MAX[j] := A[i, j];
               memo1.lines.add(FloatToStr(max[j]));
               memo1.Lines[0]:=''
         end;
       S := 0;
       n := SpinEdit1.Value - 1;
       i := 1;
       while (i <= n) and (n >= 1) do
         begin
         memo2.Lines.Add(FloatTOStr(max[i]));
           memo3.Lines.Add(FloatTostr(max[n]));
           S := S + MAX[i] * MAX[n];
           i := i + 1;
           n := n - 1;
end;
       Edit1.Text := FloatToStr(S);
       //Вывод результата
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
var i,j:integer;
//Spinedit1change подстраивает компонент Spinedit1 под программу
begin
try
     StringGrid1.ColCount := SpinEdit1.Value;
     StringGrid1.RowCount := SpinEdit1.Value;
     StringGrid1.FixedCols:=1;
     //Это означает что в компоненте StringGrid1 будет выводиться столько строк
     // и столбцов сколько введено в Spinedit1 с клавиатуры
except
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
   i,j,k: integer;
begin
if SpinEdit1.Text='' then
Spinedit1.Text:=IntToStr(3);
//проверка условия
SetLength(A, SpinEdit1.Value, SpinEdit1.Value);
     for i := 0 to SpinEdit1.Value-1 do
       for j := 0 to SpinEdit1.Value-1 do
       // Цикл для матрицы с помощью переменных i и j
         begin
          A[i, j] := RandomRange(-10, 10);
          //RandomRange Функция. Генерирует произвольное число в пределах
          //введённого  Она обеспечивает более удобную версию функции Random
          //модуля System.
         StringGrid1.Cells[j, i] := FloatToStr(A[i, j]);
         for k := 0 to 5999 do
         StringGrid1.Cells[0,k]:=IntToStr(k+1);
//Вывод матрицы
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var List: TStringList;
  i, j: Integer;
begin
List :=TStringList.Create;
with StringGrid1 do
  for i :=0 to RowCount-1 do
  for j :=0 to ColCount-1 do
    List.Add(Cells[j, i]);
with SaveDialog1 do
    begin
  DefaultExt :='txt';
if not Execute then Exit;
List.SaveToFile(FileName);
//сохранения матрицы
end;
List.Free;
saveDialog1.Execute;
saveDialog1.Files.Add(edit1.text);
SaveDialog1.Files.SaveToFile(saveDialog1.FileName+'.txt');
//сохранение результата
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Form1.Close;
//Закрытие формы
application.Terminate;
//Application.Terminate - отправляет сообщение о закрытии в очередь.
//Т.е форма закроется после обработки всех сообщений. В 99% случае разницы между
//немедленным закрытием и отложенным - нет.
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Form8.ShowModal;
//Форма в которой ничего нельзя сделать она отоброжается только визуально
end;
procedure TForm1.Button7Click(Sender: TObject);
var wrd:olevariant;
begin
wrd:=Createoleobject('word.application');
wrd.visible:=true;
wrd.documents.open('C:\Мой курсовой проект\Проект\Справка.doc');
//Выводит справку с помощью компонентов comobj
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
ShowMessage('Дана действительная квадратная матрица размера n*n. Получить x1xn + x2xn-1 + ... + xnx1,  где xk - наибольшее значение элементов k-го столбца данной матрицы. Размерность матрицы может превышать (100х100)');
//Сообщение в котором заложен смысл чего-либо
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Button8Click(sender);
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Button5Click(sender);
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Button3Click(sender);
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Button6Click(sender);
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Button7Click(sender);
end;
//Сверху как мы видим есть кнопки главного меню так вот они работают посредством
//обращения к опредленной кнопке а это кнопка делает то что в ней написано
end.
Если вы не можете то пожалуйста подскажите вопросы выше и дайте пожалуйста сайты про перевод с delphi в C#

Вернуться к обсуждению:
Перевести код с delphi в С# C#
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.09.2015, 12:09
Готовые ответы и решения:

Как перевести этот код на код Delphi
uses crt; const nmax=100; var a:arrayof integer; n,i,k,j,x:integer; begin clrscr;...

перевести код из Си в Delphi
#include&lt;stdio.h&gt; #include&lt;conio.h&gt; void main() {int a,b,c; printf(&quot;vvedi chisla\n&quot;);...

Перевести код c в delphi
Помогите перевести код c++ в delphi. // 3.cpp: определяет точку входа для консольного приложения....

Перевести код с++ в Delphi
Доброго времени суток. Недавно меня попросили написать алгоритм Штрассена на Dephi, но я как-то...

3
14.09.2015, 12:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.09.2015, 12:09
Помогаю со студенческими работами здесь

Перевести код с Delphi
Помогите перевести участок кода, написанный на Delphi в код C#. begin if...

Перевести код из C# в Delphi
private string SecretKeySpec(string text, string keyValue) { UTF8Encoding...

Перевести код с Delphi на C#
while i&lt;=length(a) do begin case a of '0'..'9': begin ...

Перевести код с delphi
var Form1: TForm1; a:array of integer; n:integer; implementation {$R *.dfm} ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru