Кто хорошо знает Дельфи и Visual Basic (можно си++, си#)

[hasanovaaygerim]

Вот прилагаю программу словаря на дельфи,,,как тоже самое сделать на Visual Basic:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    ListBox1: TListBox;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  j,i,p,h1,h2:integer;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit1.Clear;
   j:=-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  While j< ListBox1.Items.Count-1 Do
   begin
    j:=j+1;
    p:=Pos(Edit1.Text, ListBox1.Items[j]);
     if p>0 then
      begin
       Memo1.Lines.Clear;
       Memo1.Lines.Add(ListBox1.Items[j]);
       break;
      end;
     if j=ListBox1.Items.Count-1 then
      begin
       if p=0 then
        ShowMessage('Не найдено');
       end;
   end;
ListBox1.ItemIndex:=J;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo1.Lines.Add(ListBox1.Items[ListBox1.ItemIndex]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('slovar.txt');
j:=-1;
h1:=ListBox1.Items.Count;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
а тут надо, чтоб на Мемо найденное слово показывал, пока не сделала


end;

end.

VB совсем не знаю, но только на Visual Studio воспринимает турецкий язык и кыргызский



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

offtop

найдите и скачайте свежую версию Delphi (любую больше-равную Delphi 2009, например, XE* )
и у Вас будет поддержка всех языков!

[hasanovaaygerim]

я скачала 10 версию, элементарно даже ..когда я меняю Caption мои буквы на турецком и киргизском языке,,,превращаются ????

[Serge_Bliznykov]

я не хочу Вас расстраивать, но я не понимаю, что за версию Вы скачали.
согласно wiki - такой версии не было!
Что написано в окошке "About"?

Впрочем, что это я?..

C# ничем не хуже (а чем-то и лучше/мощнее!)! К тому же есть бесплатная Express версия. Можно его использовать!

[ZX Spectrum-128]

Вопрос вроде как решен с помощью lazarus.

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Вопрос вроде как решен с помощью lazarus.

Ага. Точно так!
Уже увидел тему, где Вы помогли TC.

данную тему закрываю!