Delphi > Obecné

Tstrings poradite

(1/3) > >>

M.M:
Dobry den.
S delphi jsem začal nedávno a Tstrings jsem už jednou používal.
S tímto si však nějak nedovedu poradit.

--- Kód: Delphi ---http://www.swissdelphicenter.ch/torry/showcode.php?id=67
Když mam v adapteru nastavené vice IP jak získám tu první.
Co mam špatně


--- Kód: Delphi ---procedure TForm1.Button1Click(Sender: TObject);var adresa:string;begin adresa = GetIps(1);end; 

pepak:
Používáš to úplně blbě, to je celé :-)

--- Kód: Delphi ---var L: TStringList;begin  L := getIPs;  try    if L.Count > 0 then      Writeln('Prvni adresa je: ' + L[0])    else      Writeln('Neni zadna adresa');  finally    L.Free;    end;end; 

M.M:
getIPs vraci Tstrings a ja lama si to splet s TStringList  ;)
No jo no, začatky.

Mužu ještě dotaz.
V D7 ok

Delphi XE2 vyhazuje chybu.

L := getIPs; 
[DCC Error] Unit1.pas(119): E2010 Incompatible types: 'TStringList' and 'TStrings'

pepak:

--- Citace: M.M  27-06-2012, 05:50:58 ---getIPs vraci Tstrings a ja lama si to splet s TStringList  ;)
No jo no, začatky.
--- Konce citace ---
Hlavně si pleteš TStrings s string a/nebo výběr prvku pole (hranaté závorky) od předání parametru funkci (kulaté závorky).
Jinak TStringList je potomkem TStrings, tzn. jsou typově kompatibilní.


--- Citace ---Delphi XE2 vyhazuje chybu.

L := getIPs; 
[DCC Error] Unit1.pas(119): E2010 Incompatible types: 'TStringList' and 'TStrings'

--- Konce citace ---
I v Delphi je TStringList potomkem TStrings. Tzn. pokud používáš System.Classes.TStrings a System.Classes.TStringList a přiřazuješ TStrings do TStringList, tak to musí fungovat (obráceně ne).

M.M:
Tak  proč mi to nefunguje a vyhazuje tu chybu.
Vyhazuje to to same i v Delphi 7 i v Turbo delphi lite.
Poprosil jsem kamoše, aby to vyzkoušel a vyprd se na mně a tvrdil že mu to funguje, pak přiznal že se na to vykašlal.

http://i49.tinypic.com/2d8oz9x.jpg

Navigace

[0] Seznam témat

[#] Další strana

Přejít na plnou verzi