Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

string в array[0..259] of char [D7, WinXP]

ADSWee © (2005-07-26 21:54:00)
как привести к string тип TDir,его описание
TDir=array[0..259] of char;

function DirString(a:string):TDir;
var
d:byte;
s:string;
c:char;
DD:TDir;
begin
for d:=0 to length(a) do begin
s:=copy(a,d,1);
c:=s[1];
DD[d]:=c;
end;
a[length(a)]:=chr(0);
Result:=DD;
end;

писал так,должно работать ,но неработает
procedure Finds(s:TDir);

Finds('c:\'); работает

var
ss:string;
ss:='C:\';
Finds(DirString(ss)); неработает! (

begin...end (2005-07-27 08:34:00) [1]
> Гаврила © (26.07.05 22:12) [1]
> s:=StrPas(Dir)

s := Dir

ADSWee (2005-07-27 00:24:00) [2]
Спасибо - малось намудрил

Гаврила (2005-07-26 22:38:00) [3]
ну, и третье уточнение )))
> В шестых, это все ,что ты написал, можно заменить одной
> строкой:
> StrPLCopy(Result, s, High(Result));

Разумеется, имелось в виду
StrPLCopy(Result, a, High(Result));

> > a[length(a)]:=chr(0);

переменная a передана сюда без ключевого слова var.
Следовательно, ее изменение внутри процедуры не повлечет за собой изменения фактического параметра при подстановке. То есть, непонятно, зачем вообще ее изменять.

Гаврила (2005-07-26 22:28:00) [4]

> function DirString(a:string):TDir;
> var
> d:byte;
> s:string;
> c:char;
> DD:TDir;
> begin
> for d:=0 to length(a) do begin

Во первых, максимальное значение d = 255, у тебя строка a может иметь большую длину - поймаешь ошибку
Во вторых, индексация в строках начинается с 1, а не с 0

> s:=copy(a,d,1);
> c:=s[1];
> DD[d]:=c;
> end;

В третьих - этот кусок кода может быть заменен на
DD[d]:=a[d];

> a[length(a)]:=chr(0);

В четвертых - заменил последний символ строки (который может быть значимым) нулем

> Result:=DD;

В пятых, переменная DD вообще лишняя, вместо нее можно ичпользовать переменную Result
> end;

В шестых, это все ,что ты написал, можно заменить одной строкой:
StrPLCopy(Result, s, High(Result));

Гаврила (2005-07-26 22:12:00) [5]

> как привести к string тип TDir

s:=StrPas(Dir);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »