Dobry vecer, na forum som natrafil nahodou, potrebujem pomoct.
Pouzivam delphi 7 (momentane trial verziu enterprise:ucim sa):da sa do komponenty memo vpisovat text hned za poslednym textom (to jest:nie do noveho riadku)?
Tento kod mi prida do memo 20 novych riadkov a do kazdeho z nich vlozi premennu a:
for i:=1 to 20 do memo1.Lines.add(inttostr(a));
Ako to napisat tak aby mi tu premennu a vypisalo 20x vedla seba hned vedla posledneho textu v memo?
Diky za odpoved!
aliann
Fórum › Delphi
Memo: riadky
procedure TForm1.Button1Click(Sender: TObject);
var
Index: Integer;
begin
// 0. pridame nejake srandy
Memo1.Lines.Add('riadok 1');
Memo1.Lines.Add('riadok 2');
Memo1.Lines.Add('riadok POSLEDNY');
// 1. Pridanie na posledny riadok
if Memo1.Lines.Count > 0 then
begin
for Index := 1 to 20 do
Memo1.Lines[Pred(Memo1.Lines.Count)] := Memo1.Lines[Pred(Memo1.Lines.Count)] + IntToStr(Index);
end; // IF
// 2. Pridanie do riadku
for Index := 1 to 20 do
Memo1.Lines.Text := Memo1.Lines.Text + IntToStr(Index);
end;
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 4 hosté
Podobná vlákna
Nepárne riadky... — založil Root
Textarea riadky — založil User
Textarea viditeľné riadky — založil Anonym
Query generujúce riadky z rozsahu od - do — založil Prog.
Vlozenie 1. riadka do CSV suboru (zvysne riadky su plnene parserom) — založil duta-hlava