Что нужно сделать, чтоб дельфи 7 воспринимал турецкий и кыргызский язык

[eval]

можно и тнт контролы заюзать, а можно и без них, но в том и другом случае может оказаьбся что переъод на новую иде будет менее ресурслемким

[ZX Spectrum-128]

Попробуйте

listbox1.Font.Charset:=TURKISH_CHARSET;

Киргизского и татарского чарсета нету

Турецкий работает

[hasanovaaygerim]

не помогло((

или я его не туда вставила

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);
  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.Font.Charset:=TURKISH_CHARSET;
ListBox1.Items.LoadFromFile('slovar.txt');
j:=-1;
h1:=ListBox1.Items.Count;
end;

end.

[ZX Spectrum-128]

У меня с туркиш_чарсет получалось в Турбо Дельфи.
Но это все ерунда.

Я нашел решение вашей проблемы.
Lazarus

[hasanovaaygerim]

С Turbo Delphi и Delphi 10 lite не одно и тоже?

пытаюсь найти и скачать турбо,,,,

[ZX Spectrum-128]

http://www.lazarus.freepascal.org/

[hasanovaaygerim]

это мне на паскали надо сделать? я же его не знаю совсем,,,,

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

У меня с туркиш_чарсет получалось в Турбо Дельфи.
Но это все ерунда.

Я нашел решение вашей проблемы.
Lazarus

СПАСИБООО!!!!!!! Скачала,,,посмотрела,,,теперь делаю!!!!!

[ZX Spectrum-128]

В Лазарусе татарский язык воспринимается хорошо на всех контролов.