Memo

← →
Надуев Алексей © (2007-09-08 19:23) [0]

Разместил компонент Memo на форме, запускаю приложение, вставляю в него текст из буфера и вместо русских букв почему-то одни "?".
Как это исправить???

← →
AIK © (2007-09-08 19:27) [1]

Шрифты для memo менять не пробовал.

← →
Надуев Алексей © (2007-09-08 19:39) [2]

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

← →
DVM © (2007-09-08 19:51) [3]

> вылетает программа

какая программа вылетает?

← →
Надуев Алексей © (2007-09-08 20:00) [4]

которая папки с русскими именами создает

← →
AIK © (2007-09-08 20:01) [5]

> которая папки с русскими именами создает

интересно что это за программа

← →
DVM © (2007-09-08 20:04) [6]

> которая папки с русскими именами создает

Вошли в цикл. Что это за программа? Твоя что ли?

← →
Надуев Алексей © (2007-09-08 20:12) [7]

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

← →
Anatoly Podgoretsky © (2007-09-08 20:12) [8]

> DVM (08.09.2007 20:04:06) [6]

Которая русские имена создает.

← →
DVM © (2007-09-08 20:16) [9]

> программа моя, просто она перестала понимать русский язык,
> при работе с файлами она выдает ошибку и зависает

Это плохо, если программа спотыкаясь о любую проблему в работе с файлами зависает. А как другие программы? Эксплорер русские названия воспринимает?

> Anatoly Podgoretsky © (08.09.07 20:12) [8]

:)

← →
Надуев Алексей © (2007-09-08 20:32) [10]

проверил все программы компилированные раньше понимали русский, перекомпилировал и они стали не понимать его, значит проблема в delphi или компиляторе?, как это исправить?

← →
DVM © (2007-09-08 20:37) [11]

> проверил все программы компилированные раньше понимали русский,
> перекомпилировал и они стали не понимать его

А не твои программы, тот же эксплорер с русскими именами могут работать в твоей системе?

← →
Надуев Алексей © (2007-09-08 20:42) [12]

Explorer работает без проблем

← →
Anatoly Podgoretsky © (2007-09-08 20:44) [13]

Чего тут гадать, у него не Юникод программа, а Эксплорер Юникод программа.

Как ее сделать что бы она Юникод поддерживала?

> Как ее сделать что бы она Юникод поддерживала?

Никак. Проблему в другом месте искать надо.

> Надуев Алексей (08.09.2007 20:46:14) [14]

Путей много, но текст твоей программы у тебя.

Вот такая программа, удаляет цифры в файлах MP3.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Memo1: TMemo; Button2: TButton; Edit2: TEdit; Button3: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; mp:string; rec:Tsearchrec; e1,e2:string; const //sw:array [1..11]of string=("1","2","3","4","5","6","7","8","9","0","_"); sq:array [1..118] of string=("А","а","Б","б","В","в","Г","г","Д","д","Е","е","Ё","ё","Ж","ж","З","з", "И","и","Й","й","К","к","Л","л","М","м","Н","н","О","о","П","п","Р","р","С","с", "Т","т","У","у","Ф","ф","Х","х","Ц","ц","Ч","ч","Ш","ш","Щ","щ","Ъ","ъ","Ы","ы", "Ь","ь","Э","э","Ю","ю","Я","я","Q","q","W","w","E","e","R","r","T","t","Y","y", "U","u","I","i","O","o","P","p","A","a","S","s","D","d","F","f","G","g","H","h", "J","j","K","k","L","l","Z","z","X","x","C","c","V","v","B","b","N","n","M","m") ; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin findfirst(edit1.Text+"\*.mp3",faAnyFile,rec); end; procedure TForm1.Button2Click(Sender: TObject); var s,s2:string; i,p:integer; k:integer; begin repeat s2:=rec.Name; e1:=edit1.Text; //edit2.Text:=rec.Name; label1.Caption:=rec.Name; e2:=rec.Name; k:=0; p:=-1; repeat inc(p); s:=copy(e2,p,1); for i:=1 to 118 do if sq[i]=s then k:=1; until (k=1) or (p=length(e2)-2); //edit2.SetFocus; //edit2.SelStart:=0; //edit2.SelLength:=p-1; if (k=1) and (p<>0) then begin delete(e2,1,p-1); //edit2.SelLengt h:=p-1; //edit2.SelText:=""; memo1.Lines.Add(e2); if not fileexists(e1+"\"+e2) then begin renamefile(e1+"\"+rec.Name,e1+"\"+e2); memo1.Lines.Add("Новое "+e1+"\"+e2); end else showmessage("Файлы совпадают"+e1+"\"+e2); end; //if if findnext(rec)=0 then memo1.Lines.Add(rec.Name); // then memo1.Lines.Add(rec.Name); until s2=rec.Name; end; end.

> Надуев Алексей ©

У этой программы нет проблем с русскими буквами, у нее полно других проблем. Проблема у тебя в системе.

Удалено модератором

Memo Найти похожие ветки