Убрать символ в конце строки

[Shouldercannon]

Какие изменения надо внести в данный код, чтобы в конце строки был убран символ ; (192.168.0.1;27888;empty;)?

function VarPos(var sBuffer: string; Delim: char = #13): string;
var
Poz: Integer;
begin
Poz:=Pos(Delim, sBuffer);
Result:=Copy(sBuffer, 0, Poz-1);
Delete(sBuffer, 1, Poz);
end;

procedure TForm1.LBServersMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
SomStr: string;
begin
if LBServers.ItemIndex < 0 then begin
Exit;
end;
SomStr:=LBServers.Items[LBServers.ItemIndex];
EIP.Text:=VarPos(SomStr, ';');
EPort.Text:=VarPos(SomStr, ';');
EPas.Text:=VarPos(SomStr, ';');
end;

[raxp]

если исходная строка

 (192.168.0.1;27888;empty;)

и положение ; всегда перед последним символом ), то тогда так:

 s:= '(192.168.0.1;27888;empty;)';
 delete(s, length(s)-1, 1);

если вы скобочки привели случайно, то просто length(s).

[Shouldercannon]

Исходная строка 192.168.0.1;27888;empty;

[uberchel]

Вот держи, удаляет все кроме адресов и заменяет ; на : между портом.

procedure Delimiter(FileName: string; List: TListBox);
var
  i: Integer;
begin
 try
  List.Items.LoadFromFile(FileName);
 finally
  for i:= 0 to List.Items.Count -1 do
  List.Items.text:= StringReplace(StringReplace(StringReplace(
  List.Items.Text,#10#13,'',[rfReplaceAll]),';empty;','',
  [rfReplaceAll]),';',':',[rfReplaceAll]);
 end;
end;

[Shouldercannon]

Небольшая поправка на месте empty может быть что угодно.

[uberchel]

Поменять воответственно на то которое будет сдесь:

List.Items.text:= StringReplace(StringReplace(StringReplace(
List.Items.Text,#10#13,'',[rfReplaceAll]),';empty;','',
[rfReplaceAll]),';',':',[rfReplaceAll]);

или если будет неизвестно какое, то тогда только в помощь вам Length,Copy,Pos.

[Shouldercannon]

А если сделать так:
IP считываем поле первого символа :, Port после второго : слева, а пароль тоже после второго :, но справа.

[Shouldercannon]

Смог разрулить таким образом

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    LBServers: TListBox;
    Panel1: TPanel;
    Button1: TButton;
    EIP: TEdit;
    Eport: TEdit;
    EPas: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure LBServersMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function VarPos(var sBuffer: string; Delim: char = #13): string;
var
Poz: Integer;
begin
Poz:=Pos(Delim, sBuffer);
Result:=Copy(sBuffer, 0, Poz-1);
Delete(sBuffer, 1, Poz);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
LBServers.Items.LoadFromFile((ExtractFilePath(Application.ExeName))+'servers.txt');
end;

procedure TForm1.LBServersMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
SomStr: string;
begin
if LBServers.ItemIndex < 0 then begin
Exit;
end;
SomStr:=LBServers.Items[LBServers.ItemIndex]+':';
EIP.Text:=VarPos(SomStr, ':');
EPort.Text:=VarPos(SomStr, ':');
EPas.Text:=VarPos(SomStr, ':');
end;

end.

[Altera]

А если просто замените последний символ на #0? Ну потеряешь может один байт памяти, но это как-бы не беда. Зато в быстродействии приуспишь...

[Shouldercannon]

Получится

SomStr:=LBServers.Items[LBServers.ItemIndex]+#0;

?