Forsæt en linie i en RichEdit

RichEdit1.Lines[RichEdit1.Lines.count] :=  RichEdit1.Lines[RichEdit1.Lines.count] + TalEdit.Text

Jens b

Det virker ikke helt som jeg ville...

Da man skal skrive mange forskelling ting i min TalEdit så skal den tilføre tallene hvergang man trykker på en knap til RichEdit'en

skulle du så ikke spørge om det ?

Jens B

jeg troede bare at det var den ville virke lige som en memo.Lines.text:=, derfor..

ingen der kan hjælpe???

jo brug onkeydown på dit Richedit ..

Jens B

Jeg har nok glemt og sige at jeg er en nygegynder til delphi.

Jeg vil bare gerne have min RichEdit til at´kunne tilføje vidre på en linie lige som en memo kan men lines.text...

Jo måske netop derfor giver jeg dig ikke bare svaret !

Jens B

:)

Jeg skal nemlig bruge det til en aflevering på HTX og jeg har bøvlet med det i ca 6 timer igår og uden at finde noget der ligner det jeg skal bruge.

Jeg skal nemlig gøre en text Højre, venstre, center justeret ligesom:

noget text
                      noget andet text
            mere text


Det ved jeg hvordan man gør i en RichEdit med "Paragraph.Alignment:="

Da jeg ikke ved om man kan gøre dette i en memo, bruger jeg en RichEdit.

Men nu ved jeg ikke hvordan jeg får noget text fra en "edit" til en linie hvor der står noget der er kommet fra Edit før.

Håber du forstår ellers kan det bare være lige meget... , så må jeg vente til om 3 uger hvor jeg skal have programering igen.<

her :

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  s : String;
begin
  s := RichEdit1.Lines[RichEdit1.Lines.Count-1];
  if Key = VK_BACK then
    Delete(s, length(s), 1)
  else
    s := s + char(Key);
  RichEdit1.Lines[RichEdit1.Lines.Count-1] := s;
end;


Jens B

Takker for det, det var også en ting jeg har tænkt på.

men ikke lige hvad jeg mente

Eller prøv:

1 button
1 RichEdit
1 Memo

og lav denne for button1:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.Text:=RichEdit1.Lines.Text +' ' +edit1.text;
  Memo1.Lines.Text:=Memo1.Lines.Text +' ' +edit1.text;
end;

end.

og kør programmet.

Kan du se at RichEdit laver linie skift mend Memo'en laver det hele på en linie.

Hvordan får jeg så RichEdit'en til at gøre det samme som memo'en??
(Jeg skulle nok have gjort dette fra starten..

procedure TForm1.Button1Click(Sender: TObject);
var
  str: String;
begin
  str:=RichEdit1.Lines.Text;
  str:=str+edit1.text;
  RichEdit1.Lines.Text:=str;
end;

Hmm virker stadig ikke...

Prøv

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Text:=RichEdit1.Text+edit1.text; //Ikke RichEdit1.LINES.Text!
end;

Denne gang har jeg testet det :)

Hvis det stadigvæk ikke fungerer som du vil ha' det (det virker hos mig), så prøv følgende kode der starter med at finde det sidste linjeskift og slette det.

procedure TForm1.Button1Click(Sender: TObject);
var
  str: String;
begin
  str:=RichEdit1.Text;
  if (str[length(str)]=#10) and (str[length(str)-1]=#13)  then
    delete(str, length(str)-1, 2);
  RichEdit1.Text:=str;
  RichEdit1.Text:=RichEdit1.Text+Edit1.Text;
end;

jolly_jay -> Ved ikke med dig, men jeg har ikke glemt dette spørgsmål ...

MANGE MANGE MANGE TAK athlon-pascal :)

Sorry for jeg ikke har svaret i lang tid var på studietur med min klasse.

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Text:=RichEdit1.Text+edit1.text; //Ikke RichEdit1.LINES.Text!
end;
^^^^^Dette virkede^^^^^^

Det vidste jeg, som skrevet havde jeg testet, det andet var kun hvis det første ikke helt tilfredsstillede dig :)