combobox1.items.loadfromfile('IP.txt');
원래 이렇게 해서 아이피 주소를 가지고 왔는데
사용자의 편리성을 위하여 접속아이피의 이름을 줄려고 합니다.
IP.txt의 내용이
test1=1.255.0.1
test2=100.25.0.2
test3=200.55.0.3
이렇게 있다고 할때 콤보박스에 보여주는 것은 test1이나 test2, test3이 되고
그걸 선택했을때 선택된 아이템의 "test1="를 버리고
아이피로만 입력되게 할려고 하는데요
이걸 할려면 구분자(=)로 가져와서 한다는건 알겠는데
어떻게 구분자를 사용해서 test1을 가져오고 아이피를 가져오는지 모르겠어요
찾아보니까 이렇게 하라고 되어 있는데요
str := 'aaa/bb/ccc/ddddd';
rstr := reversestring(str);
result := reversestring(copy(rstr, 1, pos('/', rstr)-1));
여기서 str에다가 IP.txt를 불러오는거랑
변수를 선언하는방법 좀 가르쳐주세요(변수를 선언하니깐 오류가 나서..)
아니면 다른 방법이라도.. 제발요~~
Name=Value 처럼 되어 있는 NameValuePair를 처리할 수 있도록 되어 있습니다.
TStrings.Names = test1, test2, ...
TStrings.Values = 1.255.0.1, 100.25.0.2
procedure TfrmMain.Button1Click(Sender: TObject);
const
FileName = 'D:\Projects\Bin\list.txt';
var
List: TStrings;
Index: Integer;
begin
List := TStringList.Create;
try
List.LoadFromFile(FileName);
for Index := 0 to List.Count - 1 do
Memo1.Lines.Add(List.Values[List.Names[Index]]);
finally
List.Free;
end;
end;