Memo1 satur değerinin ilk 8 karakterini integer olarak atamak

[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]

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

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

[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;