Выдернуть подструку из строки

← →
Ezorcist (2006-09-28 22:25) [0]

заключенную в символы.

т.е. для строки

F(Str,Sym:String):Sring;

F("bla-bla!DATA!bla-bla-bla","!")="DATA"

← →
Ketmar © (2006-09-28 22:43) [1]

TStrings.Delimiter, TStrings.DelimitedText?

← →
default © (2006-09-28 23:19) [2]

мда

← →
Ketmar © (2006-09-28 23:31) [3]

зато писать ничего не надо. %-)

← →
default © (2006-09-28 23:43) [4]

Ketmar © (28.09.06 23:31) [3]
я про сам вопроса сабжа

← →
Германн © (2006-09-29 00:30) [5]

> default © (28.09.06 23:43) [4]
>
> Ketmar © (28.09.06 23:31) [3]
> я про сам вопроса сабжа
>

А что такого в вопросе? Для конференции Начинающим вполне приемлемо.
А вот в Кэтмара [1] можно было бы кинуть камень. Поскольку TStrings.Delimiter имеет тип Char, а по примеру в вопросе F(Str,Sym:String):Sring;
требуется String!
"Можно было бы", но не советую. Во-первых (имхо) ему все эти камни по-фигу, как и мне. А во-вторых, в ответ может полететь другой камень, более тяжёлый и более меткий! :-)

← →
Fay © (2006-09-29 01:02) [6]

2 Германн © (29.09.06 0:30) [5]
> Поскольку TStrings.Delimiter имеет тип Char, а по примеру ...
Сабж : "Выдернуть подструку из строки заключенную в символы"

← →
Германн © (2006-09-29 01:09) [7]

> Fay © (29.09.06 01:02) [6]
>
> 2 Германн © (29.09.06 0:30) [5]
> > Поскольку TStrings.Delimiter имеет тип Char, а по примеру
> ...
> Сабж : "Выдернуть подструку из строки заключенную в символы"
>

Мне опять высказаться о "проблемах с терминологией" на форуме"?
А строка DATA в примере ./DATA./ во что включена? Не в символы что-ли?

← →
Fay © (2006-09-29 01:13) [8]

2 Германн © (29.09.06 1:09) [7]
> А строка DATA в примере ./DATA./ во что включена? Не в символы что-ли?
Нет.

← →
Германн © (2006-09-29 01:50) [9]

> Fay © (29.09.06 01:13) [8]
>
> 2 Германн © (29.09.06 1:09) [7]
> > А строка DATA в примере ./DATA./ во что включена? Не в
> символы что-ли?
> Нет.
>

А во что тогда?
Или
> Мне опять высказаться о "проблемах с терминологией" на форуме"?

← →
SergP © (2006-09-29 02:28) [10]

> [0] Ezorcist (28.09.06 22:25)
> заключенную в символы.
>
> т.е. для строки
>
> F(Str,Sym:String):Sring;
>
> F("bla-bla!DATA!bla-bla-bla","!")="DATA"

Ну типа так можно:
Не проверял, но по идее должно работать.
А до ума уже сам доводи...

function F(Str,Sym:String):Sring; var k:integer; begin Result:=Str; k:=pos(Sym,result); if k>0 then delete(result,1,length(Sym)+k-1); k:=pos(Sym,result); if k>0 then SetLength(result,k-1); end;

← →
Германн © (2006-09-29 02:45) [11]

> SergP © (29.09.06 02:28) [10]

Я то собсс-но писАл свой пост для автора! А он молчит! И все изыскания на форуме, имхо невпопад. :-(
Может подойдёт один пример, может другой а может и никакой!

procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
S := "bla-bla!DATA!bla-bla-bla";
Caption := AnsiDequotedStr(string(@S[Pos("!", S)]),"!")
end;

:))

>[12] Loginov Dmitry(c) 29-Sep-2006, 07:42
фигня получится.

← →
Ezorcist (2006-09-29 16:12) [15]

2 Loginov Dmitry

thx!

← →
ProgRAMmer Dimonych (2006-09-29 16:15) [16]

А если строка будет "123!234!23232!2323", что надо выдавать?

Выдернуть подструку из строки Найти похожие ветки