Copy komutunda problem...

[uğur alkan]

A235.458 B458.789 C200.000 şeklinde bir stringim var. Burada harflarden sonra gelen sayıları ayırmam gerkiyor...
pos komutu ile A B ve C nin yerlerini buluyorum.

Kod: Tümünü seç

satir:='A235.458 B458.789 C200.000';
A_Yer:=POS('A', satır);
B_Yer:=POS('B', satır);
C_Yer:=POS('C', satır);

sonra

Kod: Tümünü seç

IF A_Yer>0 Then
A_Yer2:=A_Yer;
Repeat
A_Yer2:=A_YER2+1;
Joker:=COPY(satir,A_Yer2,1);
Until Joker<>' ';  //  burada satır sonunun yakalanırmı...???
Edit1.Text:=copy(Satir,A_Yer+1,A_Yer2);

A_Yer2 degişkeni ile ' ' karakterinin nereye geldiğini kontrol ediyorum
Joker ile gelen karekterin ' ' olup olmadığına bakıyorum.
daha sonra bulunan aralığı Copy ile alıyorum ancak A harfinden sonra bana en fazla 3 karekter döndürüyor geri kalan sayılar gelmiyor.
B ve C değerleri içinde aynı şekilde çalışıyor... C için özel bir durum olabilir. Satır sonunda görmez falan diyecegim ama A ve B için mantıklı bir çözüm üretemedim... Sorun ne olabilir...

Yardımlarınız için teşekkür ederim..

[freeman35]

Kod: Tümünü seç

satir:='A235.458 B458.789 C200.000';

TMP := LeftTrim(Satir);
if TMP='' then exit;

A_Yer:=POS('A', TMP);
if A_Yer>0 then begin
 Joker:=COPY(TMP,1,A_Yer);
 delete(TMP,1,A_Yer // tmp de işi biteni sil
end;

eğer döngü kurmak istersende, döngü koşulunu

Kod: Tümünü seç

While TMP<>'' do ........

şeklinde yapabilirsin

Kolay gele

[Asri]

Kod: Tümünü seç

satir:='A235.458 B458.789 C200.000'+' '; 
kod1:=pos(' ',satir);A:=copy(' ',2,kod1-1);satir:=copy(' ',kod1+1,length(satir));
kod1:=pos(' ',satir);B:=copy(' ',2,kod1-1);satir:=copy(' ',kod1+1,length(satir));
kod1:=pos(' ',satir);C:=copy(' ',2,kod1-1);satir:=copy(' ',kod1+1,length(satir));
.
.
.
kod1:=pos(' ',satir);X:=copy(' ',2,kod1-1);satir:=copy(' ',kod1+1,length(satir));

Belki daha uzun kodlama olabilir ama ben bu tür işlerde bunu kullanıyorum.

[uğur alkan]

trim konusunu biraz daha açabilirmisiniz...?

Kod: Tümünü seç

satir:='A235.458 B458.789 C200.000'+' '; 
kod1:=pos(' ',satir);A:=copy(' ',2,kod1-1);satir:=copy(' ',kod1+1,length(satir)); 
kod1:=pos(' ',satir);B:=copy(' ',2,kod1-1);satir:=copy(' ',kod1+1,length(satir)); 
kod1:=pos(' ',satir);C:=copy(' ',2,kod1-1);satir:=copy(' ',kod1+1,length(satir)); 
. 
. 

çalışmıyor...

[delphist]

Hocam trim eğer string de boşluk varsa boşlukları kaldırır...

[Asri]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
 var
 satir,a,b,c:string;
 kod1:integer;
begin
  satir:='A235.458 B458.789 C200.000'+' ';
  kod1:=pos(' ',satir);A:=copy(satir,2,kod1-1);satir:=copy(satir,kod1+1,length(satir));
  kod1:=pos(' ',satir);B:=copy(satir,2,kod1-1);satir:=copy(satir,kod1+1,length(satir));
  kod1:=pos(' ',satir);C:=copy(satir,2,kod1-1);satir:=copy(satir,kod1+1,length(satir));
  label1.Caption:=satir;
  label2.Caption:=a;
  label3.Caption:=b;
  label4.Caption:=c;
end;

özür dilerim kodu size göre düzenlerken satir yazılacak yere ' ' koymuşum

bunu denedim çalışyor.

[uğur alkan]

çok teşekkür ederim çok sıhhatli bir halde çalışıyor....