Memo1 satur değerinin ilk 8 karakterini integer olarak atamak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
kazimates
Üye
Mesajlar: 331
Kayıt: 01 Tem 2005 12:40
Konum: Kıbrıs
İletişim:

Memo1 satur değerinin ilk 8 karakterini integer olarak atamak

Mesaj gönderen kazimates »

Memo1 satırlarında sırasıyla
22222222_001.jpg
43434343_001.jpg
67567567_001.jpg

gibi text degerler var. Yapamadığım ise burada ki loop içerisinde Memo1.Lines.Strings[Dizinindex] değerini alırken ilk 8 karakteri veya _001.jpg den önce gelen değeri alıp bir integer variabla eşitleyebilmek. Bunu bir türlü başaramadım. Bu konuda yardımcı olabilir misiniz.

kazimates
Üye
Mesajlar: 331
Kayıt: 01 Tem 2005 12:40
Konum: Kıbrıs
İletişim:

Re: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak

Mesaj gönderen kazimates »

gazetenobaslatext:= MDizin.Lines[Dizinindex];
gazetenobaslatext:= copy(gazetenobaslatext, 1, 8);
gazetenobasla:= strtoint(gazetenobaslatext);

diye bir yol izlemek suretiyle çözdüm. Umarım kelime ayrac kullanarak da yapmayı hatırlayabilirim.

Kullanıcı avatarı
Commandx
Üye
Mesajlar: 156
Kayıt: 01 Oca 2008 05:34

Re: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak

Mesaj gönderen Commandx »

Bunu bi deneyin

Kod: Tümünü seç

VAR
I,j:INTEGER;
kopyalanan:string;
BEGIN
for i:=0 to memo1.lines.count-1 do begin
kopyalanan := copy((Memo1.lines.strings[i]),0,8);
memo2.lines.add( kopyalanan); // burası text string variable
// veya j:=strtoint(kopyalanan); //burası da integer variable yeri 
end;
END;
http://www.delphibasics.co.uk/RTL.asp?Name=DaysBetween
Function PARSE( text, ilk, son:String ): String; // Çok Lazım oluyor da :)=
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;

Resim

Cevapla