Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
cesar
Зарегистрирован: 28.03.2003 Сообщения: 37 Откуда: Yerevan
|
Добавлено: Чт Ноя 04 2004 10:06 Заголовок сообщения: Delphi |
|
|
Podskajite kak mojno v Delphi 7.0 raschlenit string na array po delimitoru.
Chtoto poxoje na split.
Sposibo. |
|
Вернуться к началу |
|
|
DarkFlame Гость
|
Добавлено: Пн Ноя 08 2004 16:44 Заголовок сообщения: |
|
|
Можно немного конкретнее? |
|
Вернуться к началу |
|
|
Гость
|
Добавлено: Ср Ноя 10 2004 01:05 Заголовок сообщения: |
|
|
Вообще-то String - это и есть массив из Char. Т. е.
Код: |
...
VAR
Str : String;
CArray : Array [0..255] of Char;
i : Byte;
...
Begin
...
ReadLn(Str);
For i := 0 to Length(Str) do
CArray[i] := Str[i];
...
End.
|
P.S.
Если я правильно понял вопрос.[/code] |
|
Вернуться к началу |
|
|
ToJIcTbIu
Зарегистрирован: 06.05.2004 Сообщения: 11 Откуда: пермь
|
Добавлено: Ср Ноя 10 2004 11:38 Заголовок сообщения: |
|
|
попробуй так
Код: |
type
TDynamicStringArray = array of String;
function Split(txt: String; delim: String): TDynamicStringArray;
var i: Integer;
a,b: String;
begin
SetLength(result, 0);
if (Length(txt) = 0) or (Length(delim) = 0) then Exit;
a := txt;
while true do
begin
i := Pos(delim, a);
if (i = 0) then break;
b := Copy(a, 1, i - 1);
Delete(a, 1, i + Length(delim) - 1);
SetLength(result, Length(result) + 1);
result[High(result)] := b;
end;
if (Length(a) > 0) then
begin
SetLength(result, Length(result) + 1)
result[High(result)] := a;
end;
end;
|
или что-то в этом духе, хотя возможно и есть такая функция.
Кстати работать будет только в Delphi не ниже 4.5 (если не ошибаюсь) |
|
Вернуться к началу |
|
|
|