非科班出身的困惑，高手指点迷途 (50分)

张

张银豪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #1

var
tmpstr:string;
buf :array[0..1024] of char;
i,j:integer;
begin
j:=length(tmpstr);
for i:=0 to j-1 do
begin
buf:=tmpstr[i+1];
end;
end;
感觉这样不行，请指出先进办法

 

张

张银豪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #2

我是非科班出身，对delphi的学习是基于项目的，
也就是说用到什么看什么，所以对基本知识不太了解，
也不知用什么样的方法会存在什么样的隐藏问题
也不知用什么样的方法效率最快，希望高手能多加指点

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #3

CopyMemory(@[buf[0], @tmpstr[1], Length(tempstr));

 

张

张银豪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #4

在公司只我一人用delphi,上网时间也有限，感觉很孤独，
一个程序写出来了，没有人会指出，你这样做不行，
你这样做没有效率，真的所有的项目只是实现了程序，
而实现的过程如何，是不是最好的不知道，也没有人指点，
有同感的吗？
先谢过zw84611弟了，呵呵，你这么小呀，84年的

 

W

wzca

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-11

• #5

string 和 Char数组 之间的转换，呵呵

String -> Char 数组 StrCopy(Buff[0], PChar(tmpStr));
Char 数组 -> Stirng tmpStr := StrPas(Buff[0]);

这样就可以，是不是很容易？

 

二

二零儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-12

• #6

感觉你好像要把数组中的数右移，是顺序表插入么？

 

H

happyloner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-12

• #7

你想实现什么功能？

 

张

张银豪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #8

多人接受答案了。