Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];

Вниз

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]

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


 
Надуев Алексей ©   (2007-09-08 20:46) [14]

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


 
DVM ©   (2007-09-08 20:49) [15]


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

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


 
Anatoly Podgoretsky ©   (2007-09-08 20:51) [16]

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

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


 
Надуев Алексей ©   (2007-09-08 20:56) [17]

Вот такая программа, удаляет цифры в файлах 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.


 
DVM ©   (2007-09-08 21:02) [18]


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

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


 
WASM ©   (2007-09-08 21:59) [19]

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.5 MB
Время: 0.043 c
2-1189576036
KazaModeDelphi
2007-09-12 09:47
2007.10.07
Получение TBitmap из друг....


2-1189439590
новичёк
2007-09-10 19:53
2007.10.07
Добавление форматированного куска в TRichEdit


15-1189168930
Углук
2007-09-07 16:42
2007.10.07
Прошу удалить мой аккаунт


2-1189148703
PIG
2007-09-07 11:05
2007.10.07
Глюк с массивом PCHAR


15-1189070224
MaxIvanych
2007-09-06 13:17
2007.10.07
Matlab и Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский