Tek satırda if else (python 3.5 if else single line):
kaynak:
http://stackoverflow.com/questions/11529273/python-condense-if-else-to-one-line
tanım:
a if cond else bÖrnek:
a=1
if a==1:
sonuc= True
else:
sonuc= False
print(sonuc)
yukardaki kodun eşdeğeri:
a=1
sonuc= True if a==1 else False
print(sonuc)
INTEGER SAYISIYI 8 HANE OLACAK ŞEKİLDE BINARY SAYIYI DÖNÜŞTÜRME:
kaynak:
http://stackoverflow.com/questions/10411085/converting-integer-to-binary-in-python
>>> bin(6)[2:].zfill(8)
'00000110'örnek: Girilen byte türünden sayıyı 8 haneli olcak şekilde string veriye dönüştürnüz.
python:
---------------
decode_bin fonksiyonu girilen integer sayıyı string türünden 8 hane olacak şekilde başına 0 doldurur:
def decode_bin(int_value):
return bin(int_value)[2:].zfill(8)
sayi = 5
s = decode_bin(sayi)
çıktısı:
00000101
delphi:
-------------
harici IntToBin adlı fonsiyonu kullanacağız.
function IntToBin(Value: Byte): string;
var
I: Integer;
begin
SetLength(Result, 8);
for I := 1 to 8 do
begin
Result[I] := Char(Ord('0') + Value shr 7);
Inc(Value, Value);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var sayi:integer;
s:string;
begin
sayi:=5;
s:=IntToBin(sayi);
edit1.Text:=s;
end;
çıktısı:
00000101
STRINGİ BELLİ BİR KARAKTERE GÖRE PARÇALARA AYIRMA ( split):
Örnek:Ayrıcı karakter ; olsun."1;argentina;buenos aries" ifadesini ; karakterine göre parçalara ayırınız.
python:
------------------
bunun için split(ayırıcıkarakter) kullanılır.geriye "ayırıcı karakter sayısının bir fazlası kadar" bir liste(dizi) elemanları oluşur.
a = "1;argentina;buenos aires"
b = a.split(';')
b[0] #1
b[1] #argentina
b[2] #buenos aires
delphi:
------------------
Delphi için Split adında harici bir fonksiyon(procedür) kullanıyoruz.
procedure Split(const Delimiter: Char;Input: string;const Strings: TStrings) ;
begin
Assert(Assigned(Strings)) ;
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Input;
end;
procedure TForm1.Button2Click(Sender: TObject);
var a: string;
b: TStringList;
begin
a:= '1;argentina;buenos aires';
b := TStringList.Create;
try
Split(';', a, b) ;
memo1.Lines.add(b[0]) ;
memo1.Lines.add(b[1]) ;
memo1.Lines.add(b[2]) ;
finally
b.Free;
end;
end;
kaynak: http://delphi.about.com/cs/adptips2002/a/bltip1102_5.htm
procedure TForm1.Button1Click(Sender: TObject);
var a: string;
b: TStringList;
begin
a:= 'your delphi guide';
b := TStringList.Create;
try
Split(' ', a, b) ;
memo1.Lines.add(b[0]) ; //your
memo1.Lines.add(b[1]) ; //delphi
memo1.Lines.add(b[2]) ; //guide
finally
b.Free;
end;
end;
ancak yukaradaki delphi için tanımlanan split prosedürü tam çalışmıyor.Mesela 'TL - Türk Lirası' stringini doğru paraçalara ayıramıyor,o yüzden yeni split tanımlayalım:
procedure ParseDelimited(const sl : TStrings; const value : string; const delimiter : string) ;
var
dx : integer;
ns : string;
txt : string;
delta : integer;
begin
delta := Length(delimiter) ;
txt := value + delimiter;
sl.BeginUpdate;
sl.Clear;
try
while Length(txt) > 0 do
begin
dx := Pos(delimiter, txt) ;
ns := Copy(txt,0,dx-1) ;
sl.Add(ns) ;
txt := Copy(txt,dx+delta,MaxInt) ;
end;
finally
sl.EndUpdate;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var a:string;
b: TStringList;
begin
a:= 'TL - Türk Lirası';
//ParseDelimited(Memo1.lines,a,'-');
b := TStringList.Create;
try
ParseDelimited(b,a,'-');
finally
Memo1.lines.Add(b[0]) ;
Memo1.lines.Add(b[1]) ;
b.Free;
end;
end;
kaynak: https://www.thoughtco.com/parse-a-delimited-string-1057564
