Memo

[subhan]

S.A

aşağıdaki linke her şey yazdım resim olarak .rar dosyasını içinde bir tane resim var resimi mem olarak tahmin edin
http://rapidshare.com/files/141355667/Memo.rar.html

yradim ederseniz sevinirim

[subhan]

Neden yardımcı olan yok

[ikutluay]

Neden yardımcı olan yok

çünkü sorunu ve sorununu anlamıyorum. belki dış ülkeden yazıyorsun ama anlamadığımız şeye nasıl yardım edelim.

[sabanakman]

Tahmin et

[conari]

mem olarak tahmin edin

Tahminle gemi ilerlemiyor. Rotayı önceden çizmek lazım.

[sabanakman]

Pos string fonksiyonunu kullanabilirsen bu soruları rahatlıkla aşabilirsin.

[subhan]

arkadaşlat anlamıyıcak ne ve her çeyi .rar dosyasın'da var

[sabanakman]

Pos string fonksiyonunu kullanabilirsen bu soruları rahatlıkla aşabilirsin.

Asıl veridiğim cevapta anlamayacak ne var. Bu seferlik cevabı tepside sunalım bakalım, bundan sonra aldığın öneri doğrultusunda çalışmalısın.

Kod: Tümünü seç

var S:String; i:Integer;
begin
  S:=Memo1.Lines[0];//ilk satır
  i:=Pos('>',S);//> karakteri kaçıncı sırada
  Delete(S,1,i);//S bilgisinden 1. karaterden itibaren i adet karakter sil
  Button1.Caption:=S;
  S:=Memo1.Lines[1];//ikinci satır
  i:=Pos('>',S);//> karakteri kaçıncı sırada
  Delete(S,1,i);//S bilgisinden 1. karaterden itibaren i adet karakter sil
  Button1.Width:=StrToIntDef(S,Button1.Width);//eğer S içinde rakamsal değer kalmazsa bir hata oluşmaz
end;

[subhan]

Pos string fonksiyonunu kullanabilirsen bu soruları rahatlıkla aşabilirsin.

Asıl veridiğim cevapta anlamayacak ne var. Bu seferlik cevabı tepside sunalım bakalım, bundan sonra aldığın öneri doğrultusunda çalışmalısın.

Kod: Tümünü seç

var S:String; i:Integer;
begin
  S:=Memo1.Lines[0];//ilk satır
  i:=Pos('>',S);//> karakteri kaçıncı sırada
  Delete(S,1,i);//S bilgisinden 1. karaterden itibaren i adet karakter sil
  Button1.Caption:=S;
  S:=Memo1.Lines[1];//ikinci satır
  i:=Pos('>',S);//> karakteri kaçıncı sırada
  Delete(S,1,i);//S bilgisinden 1. karaterden itibaren i adet karakter sil
  Button1.Width:=StrToIntDef(S,Button1.Width);//eğer S içinde rakamsal değer kalmazsa bir hata oluşmaz
end;

sabanakman çok teşekürler ederim bu kod benim çok ihtiyacım olucak