hocam forma edit1 i yerleştirmemişsin sanırım, ya da adını değiştirmişsinedit: edit1 i yerleştirmişin sanırım ama orda edit1:Tedit die bişi olması lazım Tform şeysinin bulunduu yerde

abi 1. de edit: edit1 var tform yerleştircen 2. ye bakıyorum yazıcam

oldu çok sağol mutlu oldum vallahi. Şimdi de Buna çalışıyorum AĞ PAYLAŞIMINI LİSTELEMEK // uses kısmına eklenecek... Registry// İşletim sisteminin türünü bulundu.. function GetOSType:string;var OSVersion: TOSVersionInfo; FPlatformID: DWord;begin OSVersion. dwOSVersionInfoSize := SizeOf ; if GetVersionEx then begin result := Format('%d.%d ', ); FPlatformID:= OSVersion. dwPlatformID; case OSVersion. dwPlatformID of VER_PLATFORM_WIN32s: result := 'Windows 3.1'; VER_PLATFORM_WIN32_WINDOWS: result := 'Windows 95'; VER_PLATFORM_WIN32_NT: result := 'Windows NT'; else result := 'Bilinmiyor'; end; end;end;// bu function dan dnen değeri listbox nesnesi ekleyerek// listbox a doldurabilirsiniz... function GetNetbios:TStringList; function GetWinNet: String; var Registry: TRegistry; begin Registry:=TRegistry. Create; Registry. RootKey:=HKEY_LOCAL_MACHINE; Registry. OpenKey('SYSTEM\ControlSet001\Services\lanmanworkstation\NetworkProvider', True); result := Registry. ReadString ; Registry. Free; end; label SkipExtraNode; const MaxEntries = 1024; var EnumError: DWORD; Network, Network2: TNetResource; NetworkEntries, WorkGroupEntries, ComputerEntries, ShareEntries: DWORD; NetworkBufferLength, ExtraBufferLength, ComputerBufferLength, ShareBufferLength: DWORD; EnumNetworkBuffer, EnumWorkGroupBuffer, EnumComputerBuffer, EnumShareBuffer: array of TNetResource; EnumNetworkHandle, EnumExtraHandle, EnumWorkGroupHandle, EnumComputerHandle: THandle; N, W, C, S: Integer; TmpList: TStringList; notNT: Boolean;begin TmpList := TStringList. Create; FillChar(Network, SizeOf , 0); FillChar(Network2, SizeOf , 0); with Network do begin dwScope := RESOURCE_GLOBALNET; dwType := RESOURCETYPE_ANY; dwUsage := RESOURCEUSAGE_CONTAINER; end; with Network2 do begin dwScope := RESOURCE_GLOBALNET; dwType := RESOURCETYPE_ANY; dwUsage := RESOURCEUSAGE_CONTAINER; end; if GetOSType <> 'Windows NT' then notNT := True else notNT := False; if notNT then goto SkipExtraNode; EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network, EnumNetworkHandle); if EnumError = NO_ERROR then begin NetworkEntries := MaxEntries; NetworkBufferLength := SizeOf ; EnumError := WNetEnumResource ; for N := 1 to NetworkEntries do begin if EnumNetworkBuffer . lpRemoteName = GetWinNet then begin EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumNetworkBuffer , EnumExtraHandle); SkipExtraNode: if notNT then EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network2, EnumExtraHandle); if EnumError = NO_ERROR then begin WorkGroupEntries := MaxEntries; ExtraBufferLength := SizeOf ; EnumError := WNetEnumResource ; if EnumError = NO_ERROR then begin for W := 1 to WorkGroupEntries do begin EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumWorkGroupBuffer , EnumWorkGroupHandle); if EnumError = NO_ERROR then begin ComputerEntries := MaxEntries; ComputerBufferLength := SizeOf ; EnumError := WNetEnumResource ; if EnumError = NO_ERROR then begin for C := 1 to ComputerEntries do begin EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumComputerBuffer , EnumComputerHandle); if EnumError = NO_ERROR then begin ShareEntries := MaxEntries; ShareBufferLength := SizeOf ; EnumError := WNetEnumResource ; if EnumError = NO_ERROR then for S := 1 to ShareEntries do TmpList. Add ; WNetCloseEnum ; end; end; end; WNetCloseEnum ; end; end; end; WNetCloseEnum ; end; if notNT then Break; end; end;WNetCloseEnum ;end;result := TmpList;end; http://yigitdemirag.com

Arkadaşlar delphi ye başladım kod falan yazıyorum bi hata verio uyuz oldum nasıl hallederim?unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure Button1Click ; procedure Button2Click ; procedure Button3Click ; procedure Button4Click ; procedure Button5Click ; private public end;var Form1: TForm1;implementation procedure TForm1. Button1Click ;beginShowMessage ;end;procedure TForm1. Button2Click ;beginForm1. Close;end;procedure TForm1. Button3Click ;beginWinExec ;end;procedure TForm1. Button4Click ;varad:ShortString;beginad:='ZURNA';Form1. Caption:=ad;end;procedure TForm1. Button5Click ;constpi:double=3.14;varycap:integer;alan:double;beginycap:=StrToInt(Edit1. Text);alan=:pi ycap ycap;Form1. Caption:='Dairenin Alanı=' + FloatToStr ;end;end. ycap:=StrToInt(Edit1. Text); burda sorun varmış hata da şunu dio Unit1. pas(65): Undeclared identifier: 'Edit1' Project1. dpr(5): Could not compile used unit 'Unit1. pas' http://yigitdemirag.com

Biraz daha açabilr miyiz yeniyim daha pek çakamadım durumu http://yigitdemirag.com

edit : forma standart yapraandan bi tane Edit koy eer bulamassan yaz buraa resmini koyim :) www.yesilgrow.com - Growshop