[PR] memo...

Odpowiedz Nowy wątek
2003-08-30 23:57

Rejestracja: 18 lat temu

Ostatnio: 4 lata temu

0

wie moze ktos, jak co drugi znak wstawic jakas wartosc w komponencie TMemo?


Pozostało 580 znaków

2003-08-31 00:11

Rejestracja: 18 lat temu

Ostatnio: 1 rok temu

0
procedure TForm1.Button1Click(Sender: TObject);
var
 S: String;
 n: Integer;
 Znak: String;
begin
 Znak:='#2#';
 S:=Memo1.Lines.Text;
 for n:=Length(S) downto 2 do
  begin
   if ((n-1) mod 2)=0 then Insert(Znak,S,n);
  end;
 Memo1.Lines.Text:=S;
end;

Pozostało 580 znaków

2003-08-31 00:12

Rejestracja: 18 lat temu

Ostatnio: 3 lata temu

0

Ja to widze tak

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
s,a : string;
b:boolean;
begin
b := false;
  for i := 1 to length(memo1.text) do
  begin
    a := memo1.Text;
    if b then
    begin
      s := s + a[i]+'a';
      memo2.Text := s;
      b := false;
    end else
    begin
      s := s + a[i];
      b := true;
    end;
  end;
end;

Pozostało 580 znaków

2003-08-31 21:02

Rejestracja: 17 lat temu

Ostatnio: 12 lat temu

0

Koledzy zle postepujecie
powinniscie go nakierowac a nie dawac gotowca
oto link
http://4programmers.net/view.html?id=16
ale nastepnym razem sam szukaj


Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0