Delphi Forum

ilginize teşekkür ederim

merhaba arkadaşlar,


excel:=createoleobject('excel.application');
excel.workbooks.add;
sayfa:=excel.workbooks[1].worksheets[1];
r:=excel.activeworkbook.worksheets[1].cells[1];

//satır başlığı
r.Range['A1:F1'].Select;
r.Range['A1:F1'].Font.Color := clred;
r.Range['A1:F1'].Font.Bold := True ...

merhaba,

ilgilenen arkadaşlara çok teşekkür ederim.

kolay gelsin.

merhaba arkadaşlar,


procedure TForm1.Button1Click(Sender: TObject);
begin
HTTPRIO1.WSDLLocation := 'http://www.webservicex.net/globalweather.asmx?WSDL';
Memo1.Text := (HTTPRIO1 as GlobalWeatherSoap).GetCitiesByCountry(Edit1.Text);
Memo1.Lines.SaveToFile('test.xml');
end;

delphi xe2 ile WSDL ...

teşekkürler,

tabloda tek alan olarak istenileni veriyor, ancak üç alanda
istenileni alamadım.

merhaba,

Tablo
A_ADI----B_ADI----C_ADI
AHMET----MEHMET---HASAN
BİROL----MEHMET---RAMAZAN

SQL KODU
select distinct
t1.A_ADI,
(select count(distinct t2.A_ADI) from TBL_RAPOR t2
where t2.A_ADI=t1.A_ADI) as A_SAYISI,
t1.B_ADI,
(select count(distinct t3.B_ADI) from TBL_RAPOR t3
where t3.B_ADI=t1.B_ADI ...

İlginize teşekkür ederim

Merhaba;

function Binlik(Str: string): Double;
var
i: integer;
begin
for i := 1 to length(Str) do
begin
if Str = '.' then
delete(Str, i, 1);
end;
result := StrToFloat(Str);
end;

arkadaşlar yukarıdaki fonksiyonu C# a nasıl cevirebilirim ?

merhaba,

MaskEdit1.EditMask := TimeToStr(Time);

23:1_:1_

saat hesaplamasında hata veriyor,
sıfırları nasıl gösterebilirim.

Merhaba,

form'a koyduğumuz DateTimePicker1 i nasıl boş,

kullanmadığımız sürece 00.00.0000 şeklinde nasıl gösterebiliriz.

teşekkürler,

sorumu geri aldım.

Merhaba,


DM.IBQuery2.Close;
DM.IBQuery2.SQL.Clear;
DM.IBQuery2.SQL.Add('SELECT');
DM.IBQuery2.SQL.Add('SUM(CASE WHEN ISLEM = ''GİRİŞ'' THEN TUTAR ELSE 0 END) as TGIRIS,');
DM.IBQuery2.SQL.Add('SUM(CASE WHEN ISLEM = ''ÇIKIŞ'' THEN TUTAR ELSE 0 END) as TCIKIS');
DM.IBQuery2.SQL.Add('FROM TBL ...

var
t1, t2, t3, t4: TDateTime;
Saat, Dakika, Saniye, Salise: Word;
begin
t1 := (StrToDate(Edit1.Text) + StrToTime(Edit2.Text));
t2 := (StrToDate(Edit3.Text) + StrToTime(Edit4.Text));
t3 := DaysBetween(t2, t1);
Edit5.Text := FloatToStr(t3) + ' Gün';

t4 := (t2 - t1);
DecodeTime(t4, Saat ...

//başlanğıç tarih ve saat
Edit1.text := DateToStr(Date);
Edit2.text := TimeToStr(Time);

//bitiş tarih ve saat
Edit3.text := DateToStr(Date);
Edit4.text := TimeToStr(Time);

t1 := (StrToDate(Edit1.Text) + StrToTime(Edit2.Text));
t2 := (StrToDate(Edit3.Text) + StrToTime(Edit4.Text));
t3 ...

merhaba,

ilgilenen bilgi veren arkadaşlara çok teşekkür ederim.