Форум программистов, компьютерный форум, киберфорум
Java: GUI, графика
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 30.05.2013
Сообщений: 8

Перевести с Delphi на Java

02.07.2014, 02:05. Показов 1409. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите с переводом программы с DELPHI на Java.
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
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
 
type
  TS=record
  fam:string[30];
  ul:string[30];
  dom:integer;
  kv:integer;
  end;
 
 
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    Label5: TLabel;
    Edit5: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var uchen:array[1..100] of TS;
    iul:string[30];
    i,n:integer;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=n+1;
uchen[n].fam:=Edit1.Text;
uchen[n].ul:=Edit2.Text;
uchen[n].dom:=StrToInt(Edit3.Text);
uchen[n].kv:=StrToInt(Edit4.Text);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
iul:=Edit5.Text;
Memo1.lines.add(iul+': ');
for i:=1 to n do
if iul=uchen[i].ul then
Memo1.lines.add(uchen[i].fam+': '+'Äîì: '+IntToStr(uchen[i].dom)+', '+'Êâàðòèðà '+IntToStr(uchen[i].kv)+';' );
 
end;
 
end.
Добавлено через 8 минут
скрин того, что было в делфи
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.07.2014, 02:05
Ответы с готовыми решениями:

Перевести с Delphi на Java
var i,j: integer; a,b: real; s: string; begin Total:=0; s:= ''; for i:=1 to N do begin

перевести с Java на Delphi
Начинаю изучать Delphi. Помогите, пожалуйста перевести код с языка Java на Delphi. Этот код убирает форус со свех компонентов на форме: ...

Перевести код из JAVA(Android) в Delphi
Здравствуйте. Нашел одно приложение Android, декомпилировал его. Мне нужно определенный исходный код перевести в код на Delphi (Pascal) ...

4
 Аватар для Alex_P97
13 / 13 / 6
Регистрация: 13.05.2014
Сообщений: 146
04.07.2014, 14:53
Не знаю дельфю расскажешь что прога делает.
0
636 / 528 / 165
Регистрация: 01.04.2010
Сообщений: 1,843
05.07.2014, 20:56
Цитата Сообщение от Alex_P97 Посмотреть сообщение
Не знаю дельфю расскажешь что прога делает.
На одну кнопку тыркаешь, данные с 4 полей заносятся в массив. На другую - ищутся записи в массиве по полю, значение которого введено в самое нижнее поле. Найденные записи выводятся в текстовую область.
0
 Аватар для Alex_P97
13 / 13 / 6
Регистрация: 13.05.2014
Сообщений: 146
05.07.2014, 23:47
Лучший ответ Сообщение было отмечено kid0 как решение

Решение

Всё! kid0_base.zip

В архиве:
crs - исходные файлы приложения
kid0_base.jar - откомпилированный и оптимизированный файл для запуска
kid0_base.exe - тоже что и kid0_base.jar но для windows

отличия не велики:
1
 Аватар для Alex_P97
13 / 13 / 6
Регистрация: 13.05.2014
Сообщений: 146
06.07.2014, 00:04
PS писал ночью, сделал "костыль" так как ничего не пришло в голову
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.07.2014, 00:04
Помогаю со студенческими работами здесь

Перевести 4 строчки кода на Java в Delphi
Здравствуйте. Прошу помочь перевести 4 строки кода на Java в код на Delphi. Код на Java: String FileName = "C:/123.txt"; ...

Delphi на Java (перевести этот код на Джаву)
Здравствуйте уважаемые форумчанины! Нужна помощь, перевести Делфи на язык Java. Условие самой задачи: Вычисление максимального и...

Перевести с Java на C++
Переведите на C++, пожалуйста. double deltaX(double jm, double ft){ double d = new double; ...

Перевести из java в c++
import java.io.*; import java.util.*; public class main { public static class ant{ int k;

Перевести с С++ на Java
Не поможыте перевести на джава?? #include <limits.h> #include<stdio.h> #include<stdlib.h> #include<iostream> ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru