Forum: Object-Pascal / Delphi-Language
by JasonDX,
8. Mai 2005
Damit will ich sagen: Der algo könnte dir in der Form noch Probleme bereiten ;)
Wie gesagt, warum er einen Namen auslässt, hab ich noch nicht entdeckt
Forum: Object-Pascal / Delphi-Language
by JasonDX,
8. Mai 2005
Wegen dem '' ist kein gültiger Integerwert: Stell die eigenschaft WordWrap deines Memo auf false ;)
oops, falsch oder auch nich... :lol:
der fehler kommt, weil der algo die Option des Beseitigens nicht kennt ;)
Aber der Algorithmus hat noch ne kleine schwachstelle:
Probier das einfache (gültige) log:
Forum: Object-Pascal / Delphi-Language
by JasonDX,
7. Mai 2005
wieso so kompliziert? ;)
procedure MachDasDingsda;
var
NamensListe: array of string;
GeldListe: array of integer;
function Index(von: string): integer; //Die ganze funktion nur um die namen zu organisieren, ging sicher noch einfacher
var
Forum: Object-Pascal / Delphi-Language
by JasonDX,
7. Mai 2005
Also, du hast in Inhalt deinen string stehn
Inhalt := 'high xxx';
dann musst du eigentlich nur alles bis zum leerzeichen weglöschen, und schon steht in Inhalt dein 'xxx'
delete(Inhalt , 1, pos(' ', zeile));
Forum: Object-Pascal / Delphi-Language
by JasonDX,
7. Mai 2005
ich hab mir die anderen Codes nicht angeschaut, aber relativ kurz geht das so:
var zeile, who: string;
money, Factor, i: integer;
begin
Zeile := Edit1.Text;
delete(zeile, 1, pos(': ', Zeile) + 1);
who := copy(zeile, 1, pos(' ', Zeile) - 1);
delete(zeile, 1, pos(' ', Zeile));
case zeile of