указатели дельфи

[user666]

давно не писал на дельфи...и вот пришло время...а все забылось...

проблема вот в чем... есть указатель на строку... как вывести всю строку по этому указателю,а ни 1 символ... или же по указателю можно вывести 1 символ(ни как в с++) ...помогите _)

[DomiNick]

есть указатель на строку...

PChar чтоль?

всю строку по этому указателю,а ни 1 символ...

Количество символов известно?

И кстати куда вывести-то?

[user666]

возможно даже ни в этом проблема...в общем вот есть строка - знаем что в этой строке есть символ '\' - задача прсвоить строке строку которая идет после символа '\' ...вот

Сообщение от DomiNick

PChar чтоль?

Количество символов известно?

И кстати куда вывести-то?

обычный указатель ptr:^string;
а вывести неважно куда..просто присвоить чему-нить любой другой строке

[r9m]

Разименуй указатель
form1.caption := ptr^;

[GunSmoker]

Сообщение от user666

обычный указатель ptr:^string;

Обычный указатель? В каком месте он обычный?

String - это и есть, сам по себе, указатель.

[Grag]

общем вот есть строка - знаем что в этой строке есть символ '\' - задача прсвоить строке строку которая идет после символа '\'

Вот как-то так думается:

NewS:=AnsiRightStr(S,Length(S)-LastDelimiter('\',S)+1)

[user666]

а AnsiRightStr в каком модуле лежит? а то дельфи 7 не находит такой процедуры со стандартным набором модулей

[Скандербег]

S := Copy(ptr^, Pos('\', ptr^)+1, 1000);

[user666]

Сообщение от Скандербег

S := Copy(ptr^, Pos('\', ptr^)+1, 1000);

ошибка во время компиляции EAccessViolation

[Скандербег]

У меня ошибки не было.
Тестовый код такой:

procedure TForm1.Button2Click(Sender: TObject);
var
  ptr : ^string;
  S : string;
begin
  S := '123\456';
  ptr := Addr(S);
  Edit1.Text := Copy(Ptr^, Pos('\', ptr^)+1, 1000);
end;

И EAccessViolation не может быть во время компиляции. Вернее так, может, конечно, но это если сама среда Дельфи глюкавая и ломается. Прога здесь ни причем.