программа, чтобы она удаляла 1 символ(НЕ ПРОБЕЛ) с начала каждой строки

[Kenifer]

Привет всем, помогите пожалуйста с программой мне нужно чтоб она удаляла 1 символ(НЕ ПРОБЕЛ) с начала каждой строки.

Этот код только удаляет пробел с начала каждой строки.

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  sl : TStringList;
  i, j : Integer;
  St, str3, str4 : String;
begin
  str3:= Edit2.Text;
  str4:= Edit3.Text;
  sl := TStringList.Create;
  sl.LoadFromFile(str3);
  for i := 0 to sl.Count - 1 do
  begin
    St:=sl.Strings[i];
    Delete(St, Length(St[i]), Length(St[i])); или Delete(St, 1, 1);
     sl.Strings[i]:=St;
  end;
   sl.Text := sl.Text;
  sl.SaveToFile(str4);
  sl.Free;

end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ну, то, что у Вас написано и должно удалять один символ из каждой строки.
Только без всяких "или":

  sl.LoadFromFile(str3);
  for i := 0 to sl.Count - 1 do
  begin
    St:=sl.Strings[i];
    Delete(St, 1, 1);
    sl.Strings[i]:=St;
  end;
  sl.SaveToFile(str4);

[FaTaL]

Всё правильно написал Serge_Bliznykov, но если у Вас есть в начале строки пробел, а Вы хотите удалить его + и ещё один символ, то используйте код так:

sl.LoadFromFile(str3);
  for i := 0 to sl.Count - 1 do
  begin
    St:=TrimLeft(sl.Strings[i]);
    Delete(St, 1, 1);
    sl.Strings[i]:=St;
  end;
  sl.SaveToFile(str4);

[Kenifer]

БОЛЬШОЕ СПАСИБО FaTaL .

[Kenifer]

Привет всем помогите пожалуйста с кодом чтоб с конца строки удаляла все символы до точки и точку тоже пример 123.674335.name а вот так надо 123.674335

Есть код он удаляет с начала строки а мне надо с конца я вписывал в код RightStr везде но не получается.

procedure TForm1.BitBtn4Click(Sender: TObject);
var
  slx:TStringList;
  b:Integer;
  St, str3, str4:String;
begin
  str3:= Edit2.Text;
  str4:= Edit3.Text;  
  slx:= TStringList.Create;
  slx.LoadFromFile(str3);
  for b := 0 to slx.Count - 1 do
  begin
St:=TrimLeft(slx.Strings[b]);
    Delete(St,1,Pos(‘.’, St));
    slx.Strings[b]:=St;
  end;
   slx.Text := slx.Text;
  slx.SaveToFile(str4);
  slx.Free;
end;

[ZuBy]

var
  S: String;
begin
  S := '123.674335.name';
  Delete(S, LastDelimiter('.', S), S.Length);
  ShowMessage(S);
end;

[Kenifer]

ZuBy большое спасибо, скажите а как вы научились программировать с книг+интернет?

[XE5]

большое спасибо

Маленький доллар гораздо лучше большого спасибо

[ZuBy]

Сообщение от Kenifer

ZuBy большое спасибо, скажите а как вы научились программировать с книг+интернет?

по началу книги, затем уже интернет