Работа со Strings

← →
Metotrone © (2002-09-22 18:59) [0]

Как, имея

S:=" qqqqqqqqqqqq:wwwwwwwww "

сделать, чтобы S1 и S2 были:

S1:="qqqqqqqqqqqq"
S1:="wwwwwwwww"

причем, если я изничально не знаю, где будет двоеточие ?

← →
Song © (2002-09-22 19:00) [1]

Через Pos() и Copy()

← →
Metotrone © (2002-09-22 19:06) [2]

Please подробнее I.didn"t.catch

← →
Song © (2002-09-22 19:08) [3]

Поподробней в хэлпе.

← →
Metotrone © (2002-09-22 19:14) [4]

Ok.Спасибо:=)

← →
Shadow © (2002-09-22 19:36) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
s,s1,s2: String;
begin
s:="fffdsgdfshsf:rrrrrrrfgjghjghgjshsgh";
s1:=copy(s, 0, pos(":",s)-1);
s2:=copy(s, pos(":",s)+1, length(s)-pos(":",s));
end;

← →
MsGuns © (2002-09-22 19:38) [6]

s1 := Copy(s,1,Pos(":",s)-1,Pos(":",s)-1);
s2 := Copy(s,Pos(":",s)+1,Length(s)-Pos(":",s));

← →
MsGuns © (2002-09-22 19:41) [7]

>MsGuns © (22.09.02 19:38)
>s1 := Copy(s,1,Pos(":",s)-1,Pos(":",s)-1);
Ошибка ! Не успел исправить, как клацнул по "Добавить" - см. у Shadow © (22.09.02 19:36)

EveryBody.Thanks.A.Lot:=Much.Obliged

> причем, если я изничально не знаю, где будет двоеточие ?

Shadow ©
MsGuns ©

Тут с месяц назад такая ветка была про безопасный код. Все в пустую.

как вариант

//s:="fffdsgdfshsf:rrrrrrrfgjghjghgjshsgh";

var p:integer;

...

p:= Pos(":",s);
if pos>0 then begin
s1:=copy(s, 0, p-1);
s2:=copy(s, p+1, length(s)-p));
// хотя тут можно вместо length(s)-p)
// просто length(s) :-)

end
else begin
s1:=s; s2:="";
end

s1:=copy(s, 0, pos(":",s)-1);
s2:=copy(s, pos(":",s)+1, length(s)-pos(":",s));

другой

var i:integer;
wasSeparator:boolean;
...

wasSeparator := false; s1:=""; s2:="";
for i:=1 to length(s) do begin
case s[i] of
":"wasSeperator := true;
else begin
if wasSeparator then s2:=s2+s[i] else s1:=s1+s[i];
end
end

вариант третий - сам бог велел такие вещи на BASM делеть, но влом счас делфи запускать - а "вслепую" могу и ошибочный код толкануть

Работа со Strings Найти похожие ветки