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'
Merhabalar Bir Sorum Var
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Merhabalar Bir Sorum Var
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.
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;
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;