the file i was trying to load is like this:
[Providers]
00101000=ALL Operator|-
20201000=Cosmote|Greece
20205000=Vodafone / Panafon|Greece
20209000=Q-Telecom|Greece
20210000=Telestet / TIM|Greece
20404000=Vodafone / Libertel|Netherlands
20408000=KPN Telecom|Netherlands
20412000=Telfort /...
function Parsing(Char, Str: string; Count: Integer): string;
var
i : Integer;
strResult : string;
begin
if Str[Length(Str)] <> Char then
Str := Str + Char;
for i := 1 to Count do
begin
strResult := Copy(Str, 0, Pos(Char, Str) - 1);
Str := Copy(Str...
this is what i did:
var
myFile : TextFile;
text : string;
begin
AssignFile(myFile, ExtractFilePath(Application.ExeName) + 'Providers.ini');
Reset(myFile);
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ComboBox1.AddItem(Parsing('|', text, 2)...
Hi, anybody can help me with my problem? :) i am trying to parse a string and i want this to put into a ComboBox.
the string format that i want to parse is like this:
[TEST]
12345678=abcdef / fhdfkjd|Sample
45464454=fffdfdsfs|Sample
44343232=jrhewrj / dsadasd|Sample
43452355=fdsfsd|Example...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.