Memo'kaydına null boş karakter eklemek

[PROGRAMADOR]

kaydetmeden önce memonun ilk satırına eklemeyi yapabilirsin.

[gaus]

Satır satır okutacaksın while not eof döngüsüne sokacaksın döngü içine de boşluğu ekleteceksin

[greenegitim]

ikinci bir memo ekle bu ikinci memoya kayıtları aktarırken boşluk ekleyip aktar

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
for x:= 0 to Memo1.Lines.Count do
begin
Memo2.Lines.Add(' '+Memo1.Lines.Strings[x]);
end;
end;

[csunguray]

1. NULL dediğiniz nedir? Ascii kodu 0 olan karakter midir?
2. TXT dosyasına ne ile bakınca göremiyorsunuz? Notepad ile mi? Yoksa bir hexadecimal editor ile mi? Veya başka bir program ile mi?
3. Böyle bir işlemi SaveToLine ile yapmanızı önermiyorum.
4.

ya arkadaşlar biraz yardımcı olamazmısınız anlamıyorum,örnek lütfen

Burada kimse sana yardımcı olmak zorunda değil. herkes gönüllü.

5. İmla kurallarına daha çok dikkat edin.

[SimaWB]

1. NULL dediğiniz nedir? Ascii kodu 0 olan karakter midir?
2. TXT dosyasına ne ile bakınca göremiyorsunuz? Notepad ile mi? Yoksa bir hexadecimal editor ile mi? Veya başka bir program ile mi?
3. Böyle bir işlemi SaveToLine ile yapmanızı önermiyorum.
4.

ya arkadaşlar biraz yardımcı olamazmısınız anlamıyorum,örnek lütfen

Burada kimse sana yardımcı olmak zorunda değil. herkes gönüllü.

5. İmla kurallarına daha çok dikkat edin.

+1

[akdatilla]

Merhaba,
daha önce yazılmış örnek koda göre bir örnek veriyorum:
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
Memo2.Lines.Clear;
for x:= 0 to Memo1.Lines.Count do
begin
Memo2.Lines.Add(#0+#0+#0+#0+Memo1.Lines.Strings[x]);
end;
memo2.lines.savetofile('data1.txt');
end;
//not:null karakterler notepad vb ile görülmeyebilir.

[SimaWB]

Allah aşkına bu kod nedir ya?

Kod: Tümünü seç

for i := 283 to 283 do

Lütfen siz bir düşünün. 283'ten başlayıp 283'te biten bir döngü ile ne yapmayı planlıyorsunuz?

[PROGRAMADOR]

bu iş için 283'ten 283'e kadar olan döngüye neden ihtiyaç duydunuz ki?