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]
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]
for, lines, delete, copy, leftstr - poczytaj helpa o tych haslach
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 :)
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;[/code]
Oczywiście nie jest to to, co ma być.. ale chyba troszkę pomoże..
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]
albo
uses StrUtils;
liens[i]:=LeftStr(lines[i],Length(lines[i])-4);