Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
ВнизDelphi 2005 Найти похожие ветки
← →
_iceman_ © (2005-02-17 14:34) [0]Что за икс там с открытием файлов, кто знает???
Открываю pas-файл, а мне он в то ли в двоичном, то ли еще в каком виде его показывает. Пробовал через правую мышиную кнопку и меню File format указать и Ansi и Text Form - все равно.
А выглядит это примерно так:756E697420436F6E 6E6563746F723B0D 0A0D0A696E746572 666163650D0A0D0A
757365730D0A2020 57696E646F77732C 204D657373616765 732C205379735574
696C732C20436C61 737365732C204772 6170686963732C20 4578744374726C73
2C204D656E75732C 204469616C6F6773 2C20466F726D732C 20436F6E74726F6C
733B0D0A0D0A7479 70650D0A20207B54 436F6E6E6563746F 7220F2EEEBFCEAEE
20EFEEE4F1EEE5E4 E8EDFFE5F220F1E5 F2E5E2EEE920E4E8 F1EA7D0D0A202054
436F6E6E6563746F 72203D20636C6173 732854436F6D706F 6E656E74290D0A20
2070726976617465 0D0A20202020464C 6F63616C4E616D65 2C204652656D6F74...
Это лечится? А то я потерял на этом всю первую половину дня. Правил код, затем заново открыл, удивился, случайно сохранился, очень сильно разозлился :(
← →
Александр Иванов © (2005-02-17 14:45) [1]1. Поиск есть на сайте.
2. Открывай в любом редакторе, меняй "я" на "Я" и сохраняй, и будет тебе счастье.
← →
_iceman_ © (2005-02-17 14:54) [2]Спасибо. Теперь вспомнил, что читал об этой проблеме. Жаль память подвела раньше :( Придется переходить на eng-коментарии...
Но что все-таки делать, если использовать "я" жизненно необходимо? Например, исльзовать ее в пользовательском интерфейсе?
← →
Alx2 © (2005-02-17 14:57) [3]_iceman_ © (17.02.05 14:54) [2]
Оно ? :)
unit Connector;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, ExtCtrls, Menus, Dialogs, Forms, Controls;
type
{TConnector только подсоединяет сетевой диск}
TConnector = class(TComponent)
private
FLocalName,
← →
_iceman_ © (2005-02-17 15:04) [4]Оно. А как?
← →
Alx2 © (2005-02-17 15:08) [5]_iceman_ © (17.02.05 15:04) [4]
Из шестнадцатерички перевел просто.
В Memo1 положи свой "мусор" и выполни код.
Procedure TForm1.Button2Click(Sender: TObject);
Var
S: String;
k, l, Len: Integer;
Begin
S := Memo1.Text;
Len := 0;
For k := 1 To Length(S) Do
If S[k] In ["A".."F", "a".."f", "0".."9"] Then
Begin
inc(Len);
S[Len] := S[k];
End;
setLength(S, Len);
k := 1;
l := 0;
While k <= Len Do
Begin
inc(l);
S[l] := Char(StrToInt("$" + Copy(S, k, 2)));
inc(k, 2);
End;
SetLength(S, l);
Memo1.Text := S;
End;
← →
_iceman_ © (2005-02-17 15:27) [6]
> Alx2 © (17.02.05 15:08) [5]
Я думал, ты IDE настроил :) Так-то понятно, как посмотреть.
← →
Alx2 © (2005-02-17 15:31) [7]Ясно. Я не так понял значит :)
У меня D2005 нет.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.036 c