Merhabalar Bir Sorum Var

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ilker9306
Üye
Mesajlar: 1
Kayıt: 22 Şub 2019 09:40

Merhabalar Bir Sorum Var

Mesaj gönderen ilker9306 »

Abilerim kardeşlerim merhaba, yıllar önce lisede severek ve hevesle öğrendiğim program olan Delphi7'yi aradan geçen uzun zaman sonra tekrar öğrenmeye karar verdim fakar belki 16 17 yaşında takır takır yaptığım şeyleri artık hatırlayamıyorum bile. Ufak ufak başlamış bulunuyorum. Sizlere akıl danışarak eski günlerime dönmeyi planlıyorum. Desteğiniz için şimdiden teşekkürler :)

procedure TForm1.ekleClick(Sender: TObject);
const s:integer=0;
begin
if liste.Items.Count=0 then s:=0;
liste.items.Add;
liste.items.item[s].caption:=sno.text;
liste.Items.Item[s].SubItems.add(cyer.Text);
liste.items.Item[s].SubItems.Add(DateToStr(ktar.date));
s:=s+1;
end;

end.


bu kodlamadaki hatalar şunlar nedenleri öğrenebilir miyim ?
[Error] Unit1.pas(58): Left side cannot be assigned to
[Error] Unit1.pas(63): Left side cannot be assigned to
[Fatal Error] Project1.dpr(5): Could not compile used unit '..\..\..\..\Users\ilker\Desktop\PROJE\Unit1.pas'
Kullanıcı avatarı
Commandx
Üye
Mesajlar: 181
Kayıt: 01 Oca 2008 05:34

Re: Merhabalar Bir Sorum Var

Mesaj gönderen Commandx »

Ne tür bileşen kullanıyorsunuz, onu yazmamışsınız.
const yerine var kullanmayı deneyin

liste stringlist ise; stringlist olarak tanitilmamiş ,
listview ise integer tipindeki değişkeni string alanına atmaya çalışıyorsunuz. stringlist için de geçerli.
stringlist.create(liste) diye create edip oluşturun

hatalarda ise olası
delphi7 derlenirken win7 de uac izni kullanır.
Kurulu bpl veya lib veya borland delphi kurulu klasörünü administrator olarak izin verin.
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;
Cevapla