Wycinanie tekstu

Witam, dawno nie pisalem w delphi wiec prosze o mala pomoc

programik co wczytuje za kazdym razem ten sam plik (np 1.txt) i usuwa z niego np 20 pierwszych znakow, albo podany ciag wyrazu i tak skacze co linijke i robi to samo

o odpowiedz bym prosil na maila jezlei mozna bo mam problemy z www

dziekuje bardzo ;-)

/ prosimy nie boldować całych postów /

nie jestem pewnien, ale cos takiego mogloby byc (pisze z pamieci)

var i,ij:integer;
      s,t:string;

for i:=0 to memo1.lines.count do
begin
s:=memo1.lines.string[i];
for ij:=1 to 20 do
 t:=t+s[ij];
memo1.lines.string[i]:=s-t;
end;

powodzenia

// detox, czemu, teoretycznie powinno, odejmuje stringi tak jak zbiory?

<font color="green">var i,ij:integer;
s,t:string;

for i:=0 to memo1.lines.count do
begin
s:=memo1.lines.string[i];
for ij:=1 to 20 do
t:=t+s[ij];
memo1.lines.string[i]:=s-t;
end;</span>

Nie ma prawa to działać! :d

var
  i: integer;
  t: TStringList;
begin
  t := TStringList.Create;
  t.LoadFromFile('c:\plik.txt');
  for i := 0 to t.Count -1 do
    Delete(t.Strings[i], 1 20);
  t.SaveToFile('c:\plik.txt');
  t.Free;
end;

Delete(t.Strings[i], 1 20);
</delphi>

taa to nie ma prawa dzialac :-P

Delete(t.Strings[i], 1, 20);

PS. to mi wirusem zalatuje :|