Adana kebap güzeldir.
d n k b p g z ld r.
Şeklinde olması gerekiyor. Benim yazdığım hem uzun hemde tam anlamıyla çalışmıyor. Ve programda yazılan kod harici farklı bir kodla örnek vermezseniz benim için daha iyi olur. Amacım bu programı hangi yöntem ile kısaltabiliriz? Birde merak ettiğim Pos' da birden fazla karakter aratmanın yolu var mı?('a,A' şeklinde bir arama gibi. Denediğimde hiçbir şey olmuyor. )
Vereceğiniz her türlü cevap için şimdiden teşekkür ediyorum. Yanlış veya hatam varsa kusura bakmayın.
viewtopic.php?f=2&t=29991&p=164558&hili ... rf#p164558 Adlı konudan bu sorunun çözümüne ulaşılabilir mi ?( edit3.text(i) kullanılarak.)
unluharf:=('a','A','e','E',......)=şeklinde tanım yapabilirmiyiz ?
Kod: Tümünü seç
procedure TForm1.Button6Click(Sender: TObject);
var
byeri:integer;
kelime:string;
begin
memo1.Clear;
if while (pos('A',edit3.Text)>0) do
begin
byeri:=(pos('A',edit3.Text)) ;
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('E',edit3.Text)>0 do
begin
byeri:=pos('E',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('İ',edit3.Text)>0 do
begin
byeri:=pos('İ',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('I',edit3.Text)>0 do
begin
byeri:=pos('I',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('U',edit3.Text)>0 do
begin
byeri:=pos('U',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('Ü',edit3.Text)>0 do
begin
byeri:=pos('Ü',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('O',edit3.Text)>0 do
begin
byeri:=pos('O',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('Ö',edit3.Text)>0 do
begin
byeri:=pos('Ö',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('a',edit3.Text)>0 do
begin
byeri:=pos('a',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('e',edit3.Text)>0 do
begin
byeri:=pos('e',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('ı',edit3.Text)>0 do
begin
byeri:=pos('ı',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('i',edit3.Text)>0 do
begin
byeri:=pos('i',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('u',edit3.Text)>0 do
begin
byeri:=pos('u',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('ü',edit3.Text)>0 do
begin
byeri:=pos('ü',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('o',edit3.Text)>0 do
begin
byeri:=pos('o',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
while pos('ö',edit3.Text)>0 do
begin
byeri:=pos('ö',edit3.Text);
kelime:=copy(edit3.Text,1,byeri-1);
label8.caption:=kelime;
memo1.Lines.add(kelime);
edit3.Text:=copy(edit3.Text,byeri+1,length(edit3.Text)-byeri);
end;
memo1.lines.add(edit3.Text);
end;
end.