string copy

[lom]

Kolay gelsin arkadaşlar. Exelden verileri çekiyorum , ancak bi işlem yapmam gerekiyo. Çektiğim veri şu şekilde :
09912-2251
ben çekerken aynı zamanda database'e kayıt ettiriyorum. Ancak bu numarayı - işaretinden ayırıp ayrı ayrı alanlara kaydettirmem lazım. Forumda biraz araştırdım şöle birşey buldum:

Kod: Tümünü seç

procedure TFRMSATISLISTESIAKTAR.cxGrid1DBTableView1CellDblClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
var
SEHIRTELKODU,str, xchar : string;
x : integer;
begin
str :=MEMORYTelefon.AsString;
for x := 1 to length(str) do
if copy(str, x, 1) = '-' then
SEHIRTELKODU := copy(str, x +1,  length(str)- x);
showmessage(SEHIRTELKODU);
end;

bu şekilde - işaretinden soraki numarayı yakalıyorum. Ancak ikisini birden nasıl ayrı ayrı bulcam beceremedim . Yardımcı olursanız sevinirim. İyi çalışmalar.

[conari]

Leftstr ve rightstr fonksiyonları ile halledersiniz.

Kod: Tümünü seç

[code]uzunluk:=(POS('-', verim))-1; //- den önceki uzunluk
soltaraf:=LeftStr(verim,uzunluk);

// tireye kadar al[/code]
sağıda bulursun artık.

[lom]

hocam çok teşekküler saolun. İyi Çalışmalar.

[lom]

hocam sol tarafta sorun yokda sağ taraf doğru sonuç vermiyor. Acaba ben yanlışmı yapıyorum. şunuda söleyeyim , bu numaraların uzunlukları sabit değil , yani değişebiliyo.
benim sağ taraf için yaptığım şu şekilde :

Kod: Tümünü seç

soltaraf:=RightStr(verim,uzunluk);

bazen - işaretinden önceki numaraları da alıyo. Sorun ne acaba ??

[lom]

tmm hocam biraz uğraştım yaptım.
string değerin Lenght değerinden uzunluğu çıkardım sonuçları doru veriyo. Sorun procedurun çalışma mantığını bilmekmiş Teşekkürer

[unicorn64]

benzer konular daha önce konuşulmuştu forumda...

Kod: Tümünü seç

uses idGlobal;

procedure Parcala(deger,ayrac:string; var part1:string; var part2:string);
begin
  part1:=fetch(deger,ayrac); //fetch deger stringini  ayrac stringinden böler ayraca kadar olan kısmı döndürür. 
  part2:=deger; //             ilk parametre var param olark tanımlıdır ve ayractan sonraki kısım, yani kalan kısım geri döner
end;