Kategorie-Archiv: Delphi // Programmieren

[Delphi] – Stringgrid sortieren.

Folgender Code löst das Sortierproblem bei folgender Ausgangslage:
– Stringgrid, gefüllt mit Zahlen

procedure SortGrid(Grid: TStringGrid; Col: integer);
var i, j: integer;
prev: string;
begin
for j:= 0 to Grid.RowCount- 1 do
for i:= 2 to Grid.RowCount- 1 do
begin
if strtoint(Grid.Cells[Col, i])> strtoint(Grid.Cells[Col, i-1]) then
begin
prev:= Grid.Rows[i- 1].CommaText;
Grid.Rows[i- 1].CommaText:= Grid.Rows[i].CommaText;
Grid.Rows[i].CommaText:= prev;
end;
end;
end;

Der Aufruf funktioniert über den folgenden Befehl:
SortGrid(grid, [spalte]);
„[spalte]“ muss dann entsprechend gefüllt werden (2,1 etc.).

Links aus Dateien auslesen (via Delphi)

Auf der Suche nach einer Möglichkeit, Links aus bspw. CSV, XML etc. auslesen zu können, entdeckte ich die folgende Möglichkeit:

Unit zum Auslesen von Links aus Text-Datei (Delphipraxis, Account zum Download der Unit notwendig)

Die Einbindung funktioniert wie folgt:

//ausleseprozedur
procedure auslesen;
var
Links: TExtractLinksFromTextFile;
Link: TLinkObj;
i: Integer;
begin
Memo1.Clear;
Links := TExtractLinksFromTextFile.Create;
try
Links.Filename := filename;
Links.ExtractLinks;
for i := 0 to Links.LinkList.Count – 1 do
begin
Link := TLinkObj(Links.LinkList.Items[i]);
Memo1.Lines.Add(Link.Caption+‘: ‚+ Link.HREF);
end;
finally
Links.Free;
end;
end;

//einleseprozedur
procedure einlesen;
begin
quelle.text:=idhttp1.get(quell_datei);
auslesen;
memo1.lines.savetofile(ziel_datei);
// gef.-Liste weiter verarbeiten
end;

Friendfeed – API und Delphi

Nach langer und intensiver Recherche entdeckte ich eine Befüllungsoption für unser beliebtes „SocialMedia“ Friendfeed.

Man benötigt hier die folgenden Units.

ffapi, httpsend, synacode, TypInfo.

Unter webdelphi.ru befindet sich eine russischsprachige Anleitung und Problemlösung der API-Anbindung sowie die Unit „ffapi“.

Ich ergänze die „piXologisch EasyPromo“ um ein entsprechendes Feature und gebe zeitnah ein Update heraus.