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.
Memo1 satur değerinin ilk 8 karakterini integer olarak atamak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak
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.
gazetenobaslatext:= copy(gazetenobaslatext, 1, ;
gazetenobasla:= strtoint(gazetenobaslatext);
diye bir yol izlemek suretiyle çözdüm. Umarım kelime ayrac kullanarak da yapmayı hatırlayabilirim.
Re: Memo1 satur değerinin ilk 8 karakterini integer olarak atamak
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
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;
http://www.neonhaber.com/Static/mega-co ... index.html
www.delphican.con
Function PARSE( text, ilk, son:String ): String; //
begin
Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
Result := Copy(Text, 1, Pos(Son, Text)-1);
end;