小编War*_* P的帖子

Delphi 2006使用单个ansi代码页从/转换为法语/荷兰语/德语

我需要使用Delphi 2006(没有任何第三方单元/组件)从法语/荷兰语/德语进行翻译.

这3种语言的代码页为1252.我们的数据库符合UTF-8标准,所以此时我依赖于表中所有值都是UTF-8的事实.我应该对此假设有信心吗?这样会运行良好,或者我应该担心UTF-8 - >代码页1252的差异,如果有的话?我不明白UTF-8和代码页之间的区别(例如,我理解前127个字节是相同的,并且与第128个字节的请求是不同的).

其次,我需要在某些领域进行搜索.我可以依赖D2006的ANSIUpperCase功能吗?或者我应该做一个自定义功能,来对待每个特殊角色?

LE:数据以UTF-8格式存储.

提前致谢!

delphi utf-8 codepages delphi-2006

0
推荐指数
1
解决办法
527
查看次数

如何使用Python替换CSV文件中的特定逗号?

我有一个很大的CSV文件,其中行的长度各不相同:

215080,49,3,0.0,22,42,0.0
215082,49,3,0.0,22,43,59.999 
215083,49,3,0.0,22,45,0.0
215085,49,3,0.0,22,46,59.999
215086,49,3,0.0,22,48,0.0
215087,49,3,0.0,22,49,0.001
215088,49,3,0.0,22,49,59.999
215089,49,3,0.0,22,51,0.0
215090,49,3,0.0,22,52,0.001
215688,49,1,59.999,22,49,0.001
215689,49,1,59.999,22,49,59.999
215690,49,1,59.999,22,51,0.0
215691,49,1,59.999,22,52,0.001
216291,49,1,0.001,22,51,0.0
216292,49,1,0.001,22,52,0.001
216293,49,1,0.001,22,52,59.999
Run Code Online (Sandbox Code Playgroud)

例如,我想,用分号(;)替换每行中的第四个逗号().我怎样才能最有效地完成这项工作?

python csv

0
推荐指数
1
解决办法
332
查看次数

使用UDP或其他低级技术使用Delphi向所有连接的计算机发送消息?

我正在制作一款游戏,并希望立即从我的游戏服务器与所有客户交谈.(原始问题:如何制作IP列表,更新问题:如何进行UDP广播.)

我想在玩家之间建立局域网连接.现在我不明白如何找到所有连接的机器向他们发送带有服务器信息的消息.或者如何使用Synapse向所有人发送UDP?

delphi ip lan udp

0
推荐指数
1
解决办法
2270
查看次数

使用Delphi TOSVersion.TArchitecture在Windows中进行OS体系结构确定

我有一个表格有一个TEdit和一个TButton.我正在尝试确定OS体系结构.所以我按照Embarcadero论坛的建议定义了以下代码:

function OSArchitectureToStr(const a: TOSVersion.TArchitecture): string;
function OSPlatformToStr(const p: TOSVersion.TPlatform): string;
function PlatformFromPointer: integer;
.
.
.
.
.

function OSArchitectureToStr(const a: TOSVersion.TArchitecture): string;
begin
  case a of
    arIntelX86: Result := 'Intel X86';
    arIntelX64: Result := 'Intel X64';
    else
      Result := 'UNKNOWN OS Aarchitecture';
  end;
end;

function OSPlatformToStr(const p: TOSVersion.TPlatform): string;
begin
  case p of
    pfWindows: Result := 'Windows';
    pfMacOS: Result := 'MacOS';
    else
      Result := 'UNKNOWN OS Platform';
  end;
end;

function PlatformFromPointer: integer;
begin
  Result := SizeOf(Pointer) * 8; …
Run Code Online (Sandbox Code Playgroud)

delphi

0
推荐指数
1
解决办法
1210
查看次数

在Python中修改大文本文件的最后一行的最有效方法

我需要更新一些超过2GB文件的最后一行,这些文件由无法读取的文本行组成readlines().目前,它通过逐行循环工作正常.但是,我想知道是否有任何编译库可以更有效地实现这一点?谢谢!

目前的做法

    myfile = open("large.XML")
    for line in myfile:
        do_something()
Run Code Online (Sandbox Code Playgroud)

python io

0
推荐指数
1
解决办法
682
查看次数

Delphi 10.2 Tokyo不再支持IMAGE_FILE_LARGE_ADDRESS_AWARE?

根据可能未更新的DocWiki,以下内容应该是.pas文件中的有效指令:

{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}

但是它会导致此dcc32错误:

[dcc32 Error] Project1.dpr(13): E2003 Undeclared identifier: 'IMAGE_FILE_LARGE_ADDRESS_AWARE'

这种能力是否已经丢失,或者它现在一直在使用?

delphi delphi-10.2-tokyo

0
推荐指数
1
解决办法
626
查看次数

delphi 7 http请求转换成字符串

我想直接将一个url加载到一个没有任何数据流的字符串中,最好的方法是什么,internet open url但它似乎不太清楚.

我不想使用任何组件来阅读一些短消息

delphi http delphi-7

-1
推荐指数
1
解决办法
7654
查看次数

如何创建安装程序项目以构建Delphi应用程序的安装程序

我是Delphi的新手(之前曾在较低级别使用过Visual Studio),并且很难理解如何将项目编译成最终的应用程序/安装程序.我已经下载了Inno设置,我认为这是朝着正确方向迈出的一步.我用的是XE3.

任何帮助赞赏.

delphi pascal inno-setup delphi-xe3

-1
推荐指数
1
解决办法
1583
查看次数

TList后代与另一个对象?

我需要实现控件的TList后代+额外的对象.
就像是:

List.Add(AControl, AObject)
Run Code Online (Sandbox Code Playgroud)

因此,名单将同时举行 AControl, AObject

使用Delphi 7执行此操作的最佳方法是什么?

delphi delphi-7

-2
推荐指数
1
解决办法
429
查看次数

将C++内联汇编程序函数转换为delphi内联汇编程序函数

请问如何将这个C++函数转换为Delphi:

int To_Asm_Fnc(dword Amem, dword Al, dword Ac) {
int b = 0;
    asm ("push %%ecx; \
             call %%eax; \
             pop  %%ecx;"
         : "=Al" (b) /* output value */
         : "Al" (mem), "Ac" (Al), "d" (Ac) /* input value */
         );
    return b;
}
Run Code Online (Sandbox Code Playgroud)

这是我的德尔福尝试

Function To_Asm_Fnc(Amem,Al,Ac:dword):Integer;
var
b:Integer;
begin
Result:=0;
b:=0;
//*******
{ i really didn't get it as in the c++ code }
//*******
Result:=b;
end;
Run Code Online (Sandbox Code Playgroud)

非常感谢

c c++ delphi assembly

-3
推荐指数
1
解决办法
564
查看次数

为什么这个Grand Central Dispatch代码不起作用?

这是我的第一个Grand Central Dispatch代码,但它不起作用.使用Mac OS X 10.8和最新的Xcode版本.我知道这太基础了.谢谢.

#import <Foundation/Foundation.h>
#import <dispatch/dispatch.h>

void printResult(int r);

void printResult(int r)
{
    NSLog(@"%i", r);
}

int main(int argc, const char * argv[])
{
    @autoreleasepool {
        dispatch_queue_t queue = dispatch_queue_create("myQueue", NULL);
        dispatch_async(queue, ^{
            int number = pow(2, 5);
            dispatch_async(dispatch_get_main_queue(), ^{
                printResult(number);
            });
        });
    }
    return 0;
}
Run Code Online (Sandbox Code Playgroud)

concurrency cocoa objective-c grand-central-dispatch

-3
推荐指数
1
解决办法
265
查看次数