Delphide Kodlarken Zorlandım :)

19/Ağu/07 18:50

Kısayol

Şikayet

Özel Mesaj

anubisx

Kayıt Tarihi: 21/Ağustos/2005

Arkadaşlar delphi ye başladım kod falan yazıyorum bi hata verio uyuz oldum nasıl hallederim?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('HACKER WARNING');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
WinExec('C:\Documents and Settings\YASAR\Desktop\Oyunlarım\Test.exe',SW_SHOW);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
ad:ShortString;

begin
ad:='ZURNA';
Form1.Caption:=ad;
end;

procedure TForm1.Button5Click(Sender: TObject);
const
pi:double=3.14;
var
ycap:integer;
alan:double;
begin
ycap:=StrToInt(Edit1.Text);
alan=:pi*ycap*ycap;
Form1.Caption:='Dairenin Alanı=' + FloatToStr(alan);
end;

end.

-------ycap:=StrToInt(Edit1.Text);------ burda sorun varmış hata da şunu dio

[Error] Unit1.pas(65): Undeclared identifier: 'Edit1'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

http://yigitdemirag.com

Alıntı yap

19/Ağu/07 18:57

Kısayol

Şikayet

Özel Mesaj

cold-m4

Kayıt Tarihi: 12/Temmuz/2007

hocam forma edit1 i yerleştirmemişsin sanırım, ya da adını değiştirmişsin

edit: edit1 i yerleştirmişin sanırım ama orda edit1:Tedit die bişi olması lazım Tform şeysinin bulunduu yerde

Alıntı yap

19/Ağu/07 21:18

Kısayol

Şikayet

Özel Mesaj

anubisx

Kayıt Tarihi: 21/Ağustos/2005

Biraz daha açabilr miyiz yeniyim daha pek çakamadım durumu

http://yigitdemirag.com

Alıntı yap

19/Ağu/07 22:06

Kısayol

Şikayet

Özel Mesaj

Sharp

Kayıt Tarihi: 02/Temmuz/2007

edit :

forma standart yapraandan bi tane Edit koy eer bulamassan yaz buraa resmini koyim :)

www.yesilgrow.com - Growshop

Alıntı yap

19/Ağu/07 22:40

Kısayol

Şikayet

Özel Mesaj

anubisx

Kayıt Tarihi: 21/Ağustos/2005

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(OSVersion);
if GetVersionEx(OSVersion) then
begin
result := Format('%d.%d (%d.%s)',[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]);
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 dönen 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('Name');
    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[1..MaxEntries] of TNetResource;
    EnumNetworkHandle, EnumExtraHandle, EnumWorkGroupHandle, EnumComputerHandle: THandle;
    N, W, C, S: Integer;
    TmpList: TStringList;
    notNT: Boolean;
begin
TmpList := TStringList.Create;
FillChar(Network, SizeOf(Network), 0);
FillChar(Network2, SizeOf(Network), 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(EnumNetworkBuffer);
    EnumError := WNetEnumResource(EnumNetworkHandle, NetworkEntries, @EnumNetworkBuffer, NetworkBufferLength);

    for N := 1 to NetworkEntries do
    begin
      { EXTRA NODE }
    if EnumNetworkBuffer[N].lpRemoteName = GetWinNet then
    begin
      EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumNetworkBuffer[N],EnumExtraHandle);
      SkipExtraNode:{ Sistem NT türevi değilse çalışma grubunu enumerate }
      if notNT then
         EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network2, EnumExtraHandle);
      if EnumError = NO_ERROR then
      begin
        WorkGroupEntries := MaxEntries;
        ExtraBufferLength := SizeOf(EnumWorkGroupBuffer);
        EnumError := WNetEnumResource(EnumExtraHandle, WorkGroupEntries, @EnumWorkGroupBuffer,ExtraBufferLength);

        if EnumError = NO_ERROR then
        begin
          for W := 1 to WorkGroupEntries do
          begin
            EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumWorkGroupBuffer[W],EnumWorkGroupHandle);

            if EnumError = NO_ERROR then
            begin
              ComputerEntries := MaxEntries;
              ComputerBufferLength := SizeOf(EnumComputerBuffer);
              EnumError := WNetEnumResource(EnumWorkGroupHandle, ComputerEntries, @EnumComputerBuffer,ComputerBufferLength);

              if EnumError = NO_ERROR then
              begin
                for C := 1 to ComputerEntries do
                begin
                  EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumComputerBuffer[C], EnumComputerHandle);
                  if EnumError = NO_ERROR then
                  begin
                    ShareEntries := MaxEntries;
                    ShareBufferLength := SizeOf(EnumShareBuffer);
                    EnumError := WNetEnumResource(EnumComputerHandle, ShareEntries, @EnumShareBuffer,ShareBufferLength);
                    if EnumError = NO_ERROR then
                     for S := 1 to ShareEntries do
                       TmpList.Add(EnumShareBuffer[S].lpRemoteName);
                       WNetCloseEnum(EnumComputerHandle);
                  end;
                end;
              end;
            WNetCloseEnum(EnumWorkGroupHandle);
          end;
        end;
      end;
      WNetCloseEnum(EnumExtraHandle);
    end;
    if notNT then
      Break;
end; { Microsoft Windows Ağı }
end;
WNetCloseEnum(EnumNetworkHandle);
end;

result := TmpList;
end;

http://yigitdemirag.com

Alıntı yap

20/Ağu/07 17:25

Kısayol

Şikayet

Özel Mesaj

angels_demos

Kayıt Tarihi: 03/Haziran/2006

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

Alıntı yap