| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Memo [D7, XP]
Надуев Алексей © (2007-09-08 19:23:00)Разместил компонент Memo на форме, запускаю приложение, вставляю в него текст из буфера и вместо русских букв почему-то одни "?".
Как это исправить???
WASM (2007-09-08 21:59:00) [1]Удалено модератором
DVM (2007-09-08 21:02:00) [2]
> Надуев Алексей ©
У этой программы нет проблем с русскими буквами, у нее полно других проблем. Проблема у тебя в системе.
Надуев Алексей (2007-09-08 20:56:00) [3]Вот такая программа, удаляет цифры в файлах 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.
Anatoly Podgoretsky (2007-09-08 20:51:00) [4]> Надуев Алексей (08.09.2007 20:46:14) [14]
Путей много, но текст твоей программы у тебя.
DVM (2007-09-08 20:49:00) [5]
> Как ее сделать что бы она Юникод поддерживала?
Никак. Проблему в другом месте искать надо.
Надуев Алексей (2007-09-08 20:46:00) [6]Как ее сделать что бы она Юникод поддерживала?
Anatoly Podgoretsky (2007-09-08 20:44:00) [7]Чего тут гадать, у него не Юникод программа, а Эксплорер Юникод программа.
Надуев Алексей (2007-09-08 20:42:00) [8]Explorer работает без проблем
DVM (2007-09-08 20:37:00) [9]
> проверил все программы компилированные раньше понимали русский,
> перекомпилировал и они стали не понимать его
А не твои программы, тот же эксплорер с русскими именами могут работать в твоей системе?
Надуев Алексей (2007-09-08 20:32:00) [10]проверил все программы компилированные раньше понимали русский, перекомпилировал и они стали не понимать его, значит проблема в delphi или компиляторе?, как это исправить?
DVM (2007-09-08 20:16:00) [11]
> программа моя, просто она перестала понимать русский язык,
> при работе с файлами она выдает ошибку и зависает
Это плохо, если программа спотыкаясь о любую проблему в работе с файлами зависает. А как другие программы? Эксплорер русские названия воспринимает?
> Anatoly Podgoretsky © (08.09.07 20:12) [8]
:)
Anatoly Podgoretsky (2007-09-08 20:12:00) [12]> DVM (08.09.2007 20:04:06) [6]
Которая русские имена создает.
Надуев Алексей (2007-09-08 20:12:00) [13]программа моя, просто она перестала понимать русский язык, при работе с файлами она выдает ошибку и зависает
DVM (2007-09-08 20:04:00) [14]
> которая папки с русскими именами создает
Вошли в цикл. Что это за программа? Твоя что ли?
AIK (2007-09-08 20:01:00) [15]
> которая папки с русскими именами создает
интересно что это за программа
Надуев Алексей (2007-09-08 20:00:00) [16]которая папки с русскими именами создает
DVM (2007-09-08 19:51:00) [17]
> вылетает программа
какая программа вылетает?
Надуев Алексей (2007-09-08 19:39:00) [18]Несколько пробовал, и толку нет, вот недавно появилось, и невозможно создавать папки с русскими именами, вылетает программа
AIK (2007-09-08 19:27:00) [19]Шрифты для memo менять не пробовал.
| |
