(Richedit) usuniecie tekstu w ka?żdej linijce.

0

Mam wypelniony RichEdit jakims tekstem.
Chcialbym teraz w kazdej linijce usunac 4 ostatnie litery i wpisac inne.
Macie pomysl jak to zrobic ? - zwlaszcza jesli chodzi o usuniecie.

[glowa]

0

for, lines, delete, copy, leftstr - poczytaj helpa o tych haslach

0

for, lines, delete, copy, leftstr - poczytaj helpa o tych haslach

Odwolanie do helpa calkiem słuszne ,tylko ja troche bez sensu sformulowalem moje pytanie .
Wiem jak ubrać to w petle <font color="darkblue">FOR</span>, i wszystko dla kazdej lini <font color="darkblue">LINES</span> tylko nie wiem jak usunac 4 ostatnie litery ??
Podejzewam ze najpierw trzeba je zaznaczyc (ale jak zaznaczyc wlasnie te 4 ostatnie ? ) i potem <font color="darkblue">DELETE</span>.

leftstr - nie moglem znalezc w helpie [glowa]

dopisane (okolo 00.30) :

już sobie dałem radę troche w inny sposob [hurra]

milej nocki

dopisane 2x :

o dzieki DETOX wyglada ciekawie , jutro przetestuje :)

0

Wymyślone na "szybkiego":

[code]var
i,j:integer;
s:string;

begin
for i:=0 to Memo1.Lines.Count - 1 do
begin
s:=Memo1.Lines[i];
for j:= length(Memo1.Lines[i]) downto length(Memo1.Lines[i])-3 do
begin
s[j] := ' ';
end;
Memo1.Lines[i]:=s;
end;
end;

Oczywiście nie jest to to, co ma być.. ale chyba troszkę pomoże..

0

Szybciej będzie tak:

for I := 0 to Memo1.Lines.Count - 1 do 
Memo1.Lines.Strings[I] := Copy(Memo1.Lines.Strings[I], 0, Length(Memo1.Lines.Strings[I]) - 4);

[cya]

0

albo

uses StrUtils;

liens[i]:=LeftStr(lines[i],Length(lines[i])-4);

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